
(SO@L J 



ogrammi 



LE BIDE INFORMATIQUE FRANCAIS ! 



HEBOOGiC.CL- Monsieur le 
Siinaleui ■■■<:. .s eles un specialists 
ties p'obiemes mlorrraiiq.ies el 
en lant quc Mairc de Met?, vous 
avez modernise votrc vllle a 
grands coups d'informanque. de 
telema: que el de television ca- 
bles C'.iii-i-i ■ ;uj: ■j'Ci VOJ! 1:1 

tfiresse a ces rouveiies lechnoio- 
gies J 

SENATEUR RAUSCH- Man 
approche de linlormatique esi 
une acproche qui a eie double, 
sinon triple 

D abcrd. ii y a I'approche d un <ii- 
rmeant de collectible locale qui a 
decouvert I'informatique centra >■ 
see et les gros ordmateurs. il y a 
dix ans 

La deuxieme approche est ceNe 
ce hom-ne qui a louicurs aime la 
communication j'ai commence a 
faire de la photo avec lappareil 
que mon pere rr'a achete quand 
l avais neu' ans. ie me suis en- 
suds :rteresse au cinema hmt 
millimetres et a la radio et i'en 
suis tout naturellemen! arrive a la 
video. Tout ce qui etait communi- 
cation au sers la-ge du terme ma 
mteresse C est pour cette raiser 
que it me suis mis a i informati- 
que personnelle quand j'al vu sor- 
tir le tout premier Sinclair, le 
2X80 

La troisicme approche. un peu 
plus pniiosoGhiqje. est celle dun 
dec ce.ii politique qui constate 

que nous ■ ■ ■■ ■ vers une So- 
cmie de CumiTiyncdiion ft q'.ie 
nous v in i. ia tin de la Soc^ie 
indust'ieiie actuelle De meme 
que la Socifite Agncole tirait ses 
nchesses des rjioduts du sol. la 
Societe Industiielle tire ses ri- 
chesses des produits cu sousso! 
(le mmerai de cnarbon et ie pe- 
troie) el demain la Societe de 
Communication lircra ses riches- 
ses de re-sprit humain 
Cette evolution est lascmante et 
inquietante a id iQia. Inqui6taftte 
car tant qu'il tirait ses nchesses 
du sol ou du sous-sol. I'homme 
etait ancre a sa terre el se depla- 
cail pen. Les grands centres tie 
decision etaient lea vieux pays In- 
dustrials dont la France fait partie 
el tout se passail autour de 
I'ocean Atlanlique Mais au- 
jourd'hui chacun pouvant empor- 
ler son intelligence sous son bras 
et lamener oi il y a du soleil. 
I ensemble des grands centres 
d'interets mondiaux se deplacent 
vers le Pacitique. Tout cela 
m'amene a penser que. si on 



n adopte pas une nouvclle shale 
gie. une nouvelle appioche politi- 
que de ces problemes. et si on ne 
privilfiyie pas plus tout le bloc 
comn-Lnication dans lequel il y a 
aussi bien le te eohcre. '3 lelema- 
tique. le cable, la television, le 
satellite cue I edition, les livres. 
its cisques. -es disquettes et taut 
ce qui est inlormatique. 'a Franc? 
va devenir rapidement un pays 
tres en retard 

LE 

SENATEUR RAUSCH 

PARLE 

DELA 

POLITIQUE 

FRANQAISE 

EN 

MATIERE 

O'INFORMATIQUE, 

DE 

TELEMATIQUE, 

ETDE 
TELEVISION: 

C'EST 

PAS 

LA JOIE ! 

HEBDOGICIEL- Pourtant, de 
inmbreuses actions sont menees 
pour laire evoluer I'inlormalique 
familiale et professionnelle ? 
SENATEUR RAUSCH- Ce qui 
est fait est mal lait. comme tou- 
lOurs les francais prennent mal le 
probleme. Soil nous sommes tres 
en retard, soil nous sommes trop 
en avance. 

Quand nous sommes en avance 
sur un produit. nous narrivons 
pas a mobilise! les aulres pays 
pour nous suivre el nous nous 
plantons car nous n'arrivons pas 
a le produire a {'echelon mondial: 
la tail le critique pour (aire des 
economies a la production n'est 
pas atteinte. le produit reste trop 
cher et I'exportation est bloquee 
Un autre pays cree alors un pro- 
duit parallele un peu moins per- 
formanl mais a grande echelle et 



qui coule deux lots moms cher. 
Et lavance se transtorme en re- 
laid C'est )e cas de noire ••••■■. 
smn en 819 hgnes de 1945 qui a 
rte pendant vingt ans la te ev sion 
la plus chere du monde Le 
Secam. incontestable meiileur 
procede mondial de television 
COuleurs. n'a bien sur pas elt 
suivi e! nous avons paye nos tele- 
visions couieurs deux fois plus 
chet que nos voisins utihsant le 
Pal Et nous contmuons ces er- 
reurs Pour la television cabiee 
nous nous ■<■;•■'■ tout Ce suite 
sur plus pertormant et plus cher. 
ce qui fait que nous ne serons 
pas cables du tout alors que les 
aulres pays auronl 40 satellites el 
nous resterons a la traine avec 
nos 3 chaines. 

Quand nous sommes en retard, 
c'esl encore pire: on engoullre 
des sommes considerables pour 
essayer de rattraper le temps 
perdu alors qu'il vaudrait mieux 
importer des produils existants 
ailleurs el concenirer nos elforts 
sur les domaines ou nous 
sommes performanis. C'esl le cas 
de la micro-intormatique francaise 
qui n'arrivera jamais a la dimen- 
sion indusirielle el pour laquelle il 
esI urgent de laire quelque chose 
HEBDOGICIEL- Vous parlez 
de la micro-inlormatique lami- 
liale ? 
SENATEUR RAUSCH- Je 

du prolessionnel La France est 
parlie trop tard dans 1 'etude des 
micro-processeurs. D'ailleurs. il 
n'exisle pas de micro-processeur 
frangais et nous travaillons sur 
des Motorola ou des Texas. Nous 
sommes. encore une fois, 
condamnes a resler sur une 
echelle Irancaise el nous ne ven- 
drons jamais nos machines a 
letranger La politigue actuelle 
veut que tous les gosses soienl 
inilies a I'informatique mais on 
risque de leur vendre des micro- 
ordinateurs a des prix prohitjitils 
parce qu'on n'aura pas reussi a 
lancer des productions de masse. 
HEBDOGICIEL- Vous avez une 
solution a ces problemes ? 
SENATEUR RAUSCH- II au- 
rail fallu reagir il y a deux ans II 
fa I la 1 1 changer completement de 
strategic et s'associer avec une 
des grandes marques americaines 
pour les micro-ordinateurs. Par 
centre, nous aurions pu balir une 
veritable Industrie de logiciels 
francais Les autres pays, nolam- 



CINOCHE-TELOCHE 

Plein les miretles, pages 14 et 15. 



DEULIGNEURS 

Les faineants sout a la page 10 



FORMATION A L'ASSEMBLEUR 

Le prof et I'amateur eciaire vous attendant a la page 19. 



ejus 

HEBDOGICIEL- En lall. vous 
pense; qu'on devrart arreter de 
laire des ordmateurs pour se 
consacrer au logrrtei 
SENATEUR RAUSCH- AbSO- 
lument. nous avons tait le mau- 
vais choix Que ce soil pour ie io- 
qic ei p'dcssioirel ou pour le 
pu" t ogiciei familial, nous avions 



des MlIIio ans et des couqu ns en 
fraicais depuis 2 ans ' Je les ai 
convoques el ie leur ai demardri 
Si ce tableuf etait destine a etre 
vendu a des amencains ou pour 
inc ter 'es irancais a acheter ame- 
ncain ? N'importe quoi ' 
HEBDOGICIEL- Et Thomson ' 
SENATEUR RAUSCH- Thom- 
son perd tenement d'argen: qu'on 
ne sad plus comment il lonc- 
tionne II y a pourtant une bran- 




POUT . POUT . POUT 
Coucou le revoilou. Coucho 
tour. Voir page 17. 



nos chances 

HEBDOGICIEL- Est-ce qu'il 
existe des subventions pour les 
fabricanls d'ordinaleurs ? 
SENATEUR RAUSCH- il y a 
un principe qui est completement 
Stupide. il existail sous I'ancien 
gouvernement et ga n'a pas 
change Par exemple, on a sub- 
ventionne Bull qui s'esl planle 
sous Giscard Bull est aujourd'hui 
nationalise et on pretend que ca 
s'arrange un peu: acluellement 
Bull boufle autanl en deficit 
qg'IBM paye en impbts en 
France ! IBM paye 1 milliard de 
francs lourds d'impots sur le be- 
nelice el Bull lait un milliard de 
francs de deficit. Tout cela parce 
qu'on s'est dit: "il laul des ordi- 
naleurs Irancais" Mais avec cette 
idee-la, on va de plus en plus loin 
et on se casse de plus en plus la 
figure. Bull tait des micros a se 
taper la tele contre les murs. Le 
Micral 9020, par exemple, est 
livre avec une imprimante ita- 
lienne. Le logiciel Multiplan qui 
m'a ete donne en meme temps 
eiait en anglais ainsi que le bou- 
quin qui I'accompagnait I Un ma- 
nuel en anglais pour Multiplan 
alors qu'lBM el Apple vendent 
POUT 



che de Thomson qui aurait pu 
fonctionner. Answare qui diffuse 
quelques logiciels Irancais qui 
sont lout a fait valabies et certai- 
nemen! moins idiots que certains 
logiciels americams. 
Au lieu de developper la branche 
micro de Thomson, qui ne survit 
que grace aux ecoles. il faudrait 
reellement developper a fond 



cette partie log ciel'e Mais, en- 
core une fois. pour developper 
cette activite. il laut une grosse 
mactime de caicuis et i n'y en a 
pas en France Ce qu'il leur faut. 
c'est un VAX 7S0 mais on leur in- 
terdit de s'en servir parce que 
c'est du materiel rmporte el un 
DPS 8 nest pas adapte On accu- 
mule done le retard parce qu'pn a 
pas les moyens de developper du 
log del avec les outils qui se 
raient lecessaires 
HEBDOGICIEL- II laudrait 
done arreter les micro-ordinateurs 
de Thomson ? 

SENATEUR RAUSCH- Tout le 
probleme francajs est la: on veut 
tout faire mais on ne se donne 
pas les moyens de le faire. 
Ce n'est pas dramatique de ne 
pas fabriquer un micro de ce 
type-la aujourd'hui II faut savoir 
fabriquer des enormes engins 
pour les avions de Marcel Das- 
sault parce que c'est strategique 
mais fabriquer des petits micros. 
c'est inutile, aulant ies importer. 
HEBDOGICIEL- Que pensez- 
vous de I'informatique a I'ecole ? 
SENATEUR RAUSCH- Ce 
probleme est. lui aussi. tres dis- 
enable. II y a deux ans, on a de- 
cide qu'il lallait que loul le monde 
apprenne le basic. Ce n'est plus 
la peine, c'est encore une fois 
trop lard Quand les premiers 
micros sont arrives il y a 3 OU 4 
arts, c etait vrai. Mais au- 
jourd'hui. ce qu'il faut. c'est sa- 
voir se servir d'un ordinaieur. II y 
a tenement de programmes que le 
basic ne peut plus servir qu'aux 
passionnes. Suite page 16 



VIENS CHEZ MOI , 
Y'A UN VAX ! 



Le Senaleur-Waire Jean-Marie 
Rausch vous lait une proposi- 
lion interessante. Si vous vou- 
lez installer voire Societe dans 
sa bonne ville de Melz, ecou- 
tez-le: "Je viens d'acheler un 
ordinateur VAX qui coule la 
bricole de 8 millions lourds. 
Socieles de sofls venez vous 
installer a Metz. Je vous oftre 
du terrain, des jardins. du 
tennis, du golf, une piscine et 



des petils bateaux. Mais ca, 
tout le monde le propose, 
meme Chateauroux ! Moi 
j'ajoute 150. 200 ou 300 
he u res de Vax !" 
Les Societes qui fabriquenl 
des logiciels de jeux renlrent 
dans le cadre de celte opera- 
lion. 

Nous allons peut-elre recupe - 
rer un Pac-Man frangais "made 
in Metz" I 



. POUT . PO^ 

et Uiomax Diesel sont de re- 



C'est nouveau, 9a vient de sortir : 

L'actualitede la micro-intormatique. Lire pages 9,10. 



BIDOUILLE GRENOUILLE 

Ou comment trlcher, pltater, modifier, tratiquer, magouiller. 
bldoullter et grenouiller avec les logiciels du monde entier. 
Mais dans la legalite, au moins ? Of course, mon general ! 
Lire page 9. 



CONCOURS PERMANENTS 

Votre programme, non content de vous rapporter 1.000 
francs par page publiee. peut vous rapporter 20.000 
francs cheque mots ou un voyage en Californie pour deux 
chaque trlmestre. Reglement en page interieure. 



DES PROGRAMMES POUR VOTRE ORDINATEUR: AMSTRAD . 
APPLE lie et He. ATARI 800 XL . CANON X-07 . CASIO FX 702-P. 
COMMODORE 64 ET VIC 20 . EXELVISION EXL 100 . HECTOR HR . 
MSX et compatibles . ORIC 1 ET ATMOS . SINCLAIR ZX 81 ET SPECTRUM. 
%TANDY TRS 80 . TEXAS TI-99/4A . THOMSON T07, TO7/70, ET M05^ /J 



N°74, 



Allemagne 3.5D DM - Belgique 77 Frs - Canada 2,50 S - Luxembourg 74 Frs - Suisse 3 Frs - 



10F 



HANTEB 



Si les fantomes et les araignees ne vous effraient pas, 
essayez done de venir £ bout des cinq tableaux 
que contient ce jeu. 

Olivier PASSAGNE 

Mode d'emploi: 

Une extension de 16 KO est necessaire pour contenir ce jeu. Faire 
POKE 44,24 : POKE 6144,0 avant de taper ou de charger le pro- 
gramme. 




VIC 20 



SUITE DUN' 73 



H-; 



212 PR INT "HHH 

213 PRINT 

214 PRINT 

215 PRINT"HPC 

216 PRINT "H 

217 PRINT"H HH IJKL HHHHH% 1895 

219 PRINT"HHH H"; 1990 

229 PRINT"HHHH H"; 1995 

221 PRINT"HHHHH H", 1906 

223 pi;iE469l,8 1910 

300 fl=4578'POKEFI,0 1950 

301 C0=9 1951 

302 3QSUB850 1952 

303 0OSUB853 1953 
409 GETRJ 1954 
495 IFCO=lflNI'H=4578THEN1109 1955 

406 IFH-4::-;-|HL : nrri[-MM.>-.!:u.- : ^1' F0KE36875,M; NEXTM Ful E 36375.0 l?5i- 

co-i 1957 

407 IFfl=4222THENP0KE4224, 32 P0KE4225- 32 FuKER ■ 52 : fi=fl-22 : 1958 
P0KEA,9 JJg 

498 IFR=4334THENR0KER.32 R=4210 POKEfl, 9 J'f 

489 IFfl=4299THENPGKEfl-32 H=4333 : POKEfl. 9 J|fl 

418 IFPR=43:30THF.HFul EPFi-32 GQSUB853 . }?62 

411 IFPEEK(Pfl-i:>=0THEW1000 }^" 

412 IFPEEK<PR+1J=0THEN1009 fj£ 

506 IFPEEk.FI-22.'O32'ftNBl : ll="fl"THEN1099 JfW 
561 IFPEEK<fl*22X>32RNBfi*="Z"THEN1800 J|ff 
502 IFPEEK<fl+lX>32RHDfl*="."THEN1000 1967 
■30 3 :FPEEHR-l-<-.>32flNLR$=","THEN1000 }f,68 
-'■■; ]:-■-,.;-■ .VMIIIiPFEl i-'J , ■ :' '■■ ■'■' : ' : ! '■ '''■'•■ '■"■"' 

595 IFfi*= ,i ;"F)NIiPEEF-'P'J+ i ',:.^J2THEMP0KEPM,32 P0-S'U*22 POKEPO. 7 1970 

596 IFR*='."HNDPEEKtP0+l)=32THENP0KEP0,32:P0-:P0U:P0KEP0.7 19? J 

507 IFfli = '-. ,i PHIiPEEIifpi>l ^32THEMFi-jlEPiJ.32:P0=P0-l-P0KEP0.7 972 
509 P0KEPH.32 PR=PH+l-P0KEPR-4 9;3 

599 ira*O""7HEHP0KEit-:-. ,■'■;.. ,:!:■'; ,-■,;■!.£ 363"6,o 1978 

600 IFfl*="fl"THENP0KER.32fl=R-22:P0KEfl,9 

601 1FR*-' , 2 , 'THENPOKER.32-R=fi*22-POKER,0 1™ 

602 IFRJ=". "THENPOKER. 32R=fi+l POKEfl, 9 '585 
~U~: IFR*=- ."THENPOKER, 32 R=R— 1 -POKER. ' 936 
800 GOTO400 2000 

850 PO=4546:P0KEP0;7 2004 

851 RETURN 2005 
35.3 Ph=4 36? F'UKEPfl,4 2006 
854 RETURN 280. 
1009 FOREF=0TO253^ P0KE36879.EF ^NEXTEF : P0KE36879, 111- PRINT"*' 2998 

-PGKE36876,255 

1001 FORS=0TO23:SYS59765 NEXTS POKE 36876, 8 ER.0 

1002 FORM=100TO255-POKE36874.MNEXTI1 2009 
1083 F0RMU=255T0188STEP-1 P0KE3S874,MU ^NEXTMU 2010 

1012 PRINT'TT P0KE36869, 192 2011 

1013 PRINF'VOULEZ VOUS REJOUER (0/N)" 2012 

1014 GETR*IFR*=""THEN1914 2013 
1815 IFRJ="O"THENPOKE368S9,205GOTQ290 2014 

1016 IFR*="N"THENSVS64802 2015 

1017 GOTO1014 2016 
1 180 F0RS=9TU23 SYS59765 ■ NEXTS 2817 

1 101 FORC=100TO255 -PrjKE36B74,C : NEXTC ■ P0KE36874. 2818 

1102 FORM=0TO235POKE36379,M NEXTM 2500 

1103 POKE36879,8:PRINT"r 2501 
1184 PRIHT"T 2502 
1105 CLR 2503 

1110 F^lRFiT-lTO1000:NEXT:CO=8:PRINT , '^^HHHHHHHHHHHHHHHHHHHHH■ , ; 2564 

1111 PR1NT"HQR [ [ N H"; 2505 

1112 PRINT"HST C H"J 2596 

1113 PRINT"HHHH IJKL 

1114 PKINT"H< 

1115 PRINT"HST CCCCCCCC H" 

1116 PRINT"HUV H". 

1117 PfiiNT"HHHHHHHHHHHHHHHHHHH HH". 

1118 PRINT"HC CCCCCCCC CH" 

1119 PRINT"I 

1120 PRINT-I 

1121 PRIW'HC CCCCCCCCC H". 

1122 PRINT-'I 

1123 PRINT"I 

1124 PRINT"HC CCCCCCCC CH"; 4903 

1125 PRINT"H H", 

1127 PRIHT"HC C t i: C C C C C H"' 4005 

1128 PRIHT"H H"; 

1138 PS1HT-HC C. c C C C C C C CH" . *W? 

1131 PRIHT-'H H"; 4008 

1133 P0KE4601,? 

1290 R=4559PrjKEfi,0 4550 

1202 OO3UB1700 4551 

1203 003US1703 4552 

1300 GETR* 4553 
1395 IFH=4231 THENPOKER, 32 fl=4144 POKEft.9 4554 

1306 IFfi=4143THEHP0KEff 32 P,=4232 POKER. 9 4-55? 

1307 IFFI=4179THENP0KE4131,32 P0KE4182.32 4356 
iXi:;: ;FM = 41-:<rHEIIFuF!i^-:.T.-C'l i ?.::';TEP-! P0KE2-£376 . H NEXTM : «57 

POKE36S76,0-CO=1 4558 

1399 IFfl=4I79THENP0KEft,32 fl-ft-22 POKER. 4559 

1310 IFCO=IfWDfl»4560THEH19ae 4™ 

1311 IFPEEl (B-22JC 32flNDR*="fl"THEM799 4^ 6 t 

1312 IFPEEK<fl+22>032flNDfl*-"Z B THEH17W 4562 

1313 1FFEE1 ■N+I.:: 32RUIiRJ="."THEN1799 45 « 

1314 IFPEEK-:fl-l>-.:: 32RHDRT=","TH£N1?99 4564 

1 ::T" IFF'.; lM2TMI.IirO| FPU \ ' -0 '■'t-W^J 

1316 ]FPA=4361THEHPUhEPfl. 32 OOiUB1703 ™5 

1317 IFPEEK<:fl-13=4THEN1739 *566 
1313 IFPEEK<A*1>=4THEN1799 ™Z 
1399 PEI1***M.tt*# + «******mf **♦♦♦♦♦****•*♦* 4568 
1490 IFfi*= n Fi " THEMPCiKEft - 51 h-Fi-12 ' POKEfl-0 ™?, 

1401 IFH*="Z"THEHPi:.KEfl.3;:-M-h+.^ POKER. 9 V",' 

1402 IFh*="."THENK»Em. 32 m=m+ 1 POKER, *5ii 
1463 IFfl*=". , 'THENPOKEft. 32 fl=R-p POKER. 4372 

1404 P0KEP0.-32 P0=P0+1 P0KEP0,4 4573 

1405 PMIEPH.32 PR=PH-1 PUKEPR.4 4579 

1406 IFRSO ,,, 'THENPiJKEV.3r<-;.255 F'0hE36876.8 4580 
l-;00 F-OTO 1300 4582 

1700 FFj, 4493 P0KEP9..4 4583 

1701 RETURN 4599 
17 k j:-: Pm=4336 P0KEPfl,4 4680 
1704 RETURN 4682 
; -.':> FnCt!--lu'JTFr.-;T-5 F'Firi: >::3T4 .H NEXTM PUIFJF.ftr.) - 4693 
|Mi-n-i Fr,:K r - ..T 1 r.:'-,- , PA] F Vk.n--.- ■ l NE::rC POI £36879- 11 1 PRINT "a" 4604 

1301 F0P3 = F.T023 SVS59765 NE: ITS PPINT'TT 



F'C'I E3t:3b3.1'?2 PRINT "(r/OULEZ VOUS PEJL'l.ibP 

CO/N>" 

GETR* IFR*="" THEN 1883 

IFR*="0 ,, THENP0t.E368e.y-295 Pnp.E36S7y, 8 ■ 

PRINT"rJ3" G0T01116 

I FR$= "H" THENSVS64802 

GOTO 1803 

CLR 

FORM= 199T0255 = P0KE36874 , M : NEXTM 

Fnpt1=255Trily0STEP-l-POtf.E36874,H-NEXTM: 

P0KE36874.9 

FORS=0T023 SVS59765NEXTSPRINT"r]" 

PRINT": 

PRINT"HHHHHH 

PRINT'-HHHHH 

PRINT"HHHH 

PRINT-H 

PRINT 1 

PRINT"H 

PRINT"H 

PRINT"H 

PPINT"HH 

PRINT"HHH 

PRINT"HHHH 

PRINT' 

PRINT"H CCCCCCCCHHH' 

PR I NT "H H H' 

C- C C HHH HHH H H' 

HHHHHHHH H H H' 
COPOPH HHHH H H' 




1 QRH H H"; 

: 3TH H". 

UVH H H*J 



EFH"J 



PRINT"HEF 

PRINT"HHHI 

PR I NT "HO 

PRINT"H C POPOH H H H"; 

PRINT"HQR OPOPHH HH HH H"; 

PRINT-'HST C H H H H"; 

PRINT "HUV 

PRINT" 

POKE4601.8 

CLR 

CO=0 

R=4185-POKER,0 

GOSUB3001 

GOSUB3006 

GETR* 

I Ffl=4 1 86RNDC0= 1 THEN4580 

IFR=4352THENP0KER. 32 : R=4562 F QKEfl 'J 

IFR=4561THENPOKER,32:R=435i:POKER J 

IFR=4430THENPOKE4427. 32 i P0KE442B.32 XO-1 

1FR=4430THENFORM=100TO255 P0KE36874,M:NEXTM 

POKE 36874 . : POKER, 32 ■ R=R-22 ■ POK 

IFP0=4578THENPOKEP0, 32 GOSUB3001 

IFPfl=4352THENPi;if EPR . 32 G0SUB3396 

I FR+22=POTHEN4900 

IFR-22-POTHEN4090 

IFR+1=PRTHEN4099 

IFR-1^PRTHEN4009 

I FPEEK < fi-22 > 032RNDR** ' 

I FPEEK< fl+22 ) <>32RNDR*= ' 

IFPEEK<fl+l)<>32RNDRf=" 

IFPEEK<R-1 K>32HNDRf=' 
REM************** 

IFRJ="fl"THENP0KER,32 fl=R-22P0KEfl,9 

IFR»="Z"THENPOKER. 32 : R=R*22 : POKER, 

IFR*-"."THENPOKER.32fl»R*l 'P0KER,9 

I Ffl»=" , " THENPOKER. 32 ■ fl=fl-l : POKEfl . 9 

POKEPO, 32 ■ P0=P0+22 ■ POKEPO, 4 

P0KEPR.-32 Pfl=PR+l P0KEPR,4 

IFft*0""THENpriKE36S76-255 POKE36876.0 

G0T02966 

prj=4ijo Pijt.tPU.4 

RETURN 

Pfl=4342 P0KEPR.4 

RETURN 

FOPi: -eT0Z53 ■■ P0KE36879, C NEXTC ■ P0KE36879, 1 1 

PRINT'TH" 

F0R5=8T023 : 3V559765 ■ NEXTS PRINT"7]" 

FOPH=255TO190STEP- 1 P0KE36875. PI ■ NEXTM ■ 

P0KE36875.8 

P0KE36369, 192 PRINT"V0ULE2 VOUS REJOUER 

(0/N)" 

GETPt : IFR*=" "THEN4004 

IFR*="0"THENCLR:P0KE36873,8 PRINT'TI" ■ 

FORR=1TO1000:NEXT:POKE36369,285:COTO19 

IFR*='-N"THENSVS64302 

GOTO4904 

CLR : FORC=9T0255 ■ P0KE36879, C : NEXTC ■ 

P0KE36879,3 PRINT'TJT 

PRINT": 

PRINT"HORBBBBBBN 

PRINT-HSTB BE 



■"R"THEN4000 

:"2"THEN4000 

"THEN4880 

"THEN4089 



NOPOPOPH"; 

CPOPOPOH" ; 

EF H"; 



PRINT"HUV 

PRINT' 

PRIMT"HOPOPO 

PPIHT-HPOPO C 

PRINT'-HOPOPC 

PRINT"HHHHHH 

PRINT-H H H"; 

PPIHT"H HH HH HHH HHH HHH H": 

PRINT"H HH H"; 

PRINT-HH HHHHHHHHHHHHHHCHHH" J 

PRINT-HHH HHCHONPHWIHHHHHHH" ; 

PRINT"HHHH HHH C HXHH HH" .: 

PPIUT-HUCHH HH XH" i 

PRINT"[- 

PRINT"HXCCCH 

PPIIIT , 'HHHHHH h 

PRINT-HH HHH HHCCCHHH", 

PPINT"H HHHHH H HH[ [ [ [ [HH" ; 

PRINT"H HHHHHHH HH[[[[[[[H"; 

POKE 460 1,8 

CO=0 

R=4559 POKER. O 

GOSUB6109 

G0SUB6102 

GETRS 

IFfl^4263THENP0KEfi.. 32 R=4166 POKEfl, 6 
IFfl=4 1 65THENP0KER, 32 ■ fl=4267 POKEfl , 
1FF)=4173THENC0=1 FOPM=199T0209 POI r.36377. 
NEXTM P0KE36377 - 9 



4695 IFfl=4178THENP0KEfl+2, 32:P0KEfl+3, 32 POKEfl. 32fl=fl-I : 

4606 IFfl=4559RNDCO=lTHEN7000 

4697 IFA-1=P0THEN6999 

4F03- 1FR+1^P0THEN6999 

4669 IFR*l=PFlTHEN6990 

4616 IFfl-l=PATHEN6000 

4615 IFPu=4343THENF0t-.EP0, 3.; OOSUBSISB 

4616 IFPR=4314THEHP0FEFFi ■; 3u3.UF:6102 
4-32o iFFEEF.-'-n ,.',:• , ;:,:«\;:frt^--f them^Ooo 
4621 IFPEEK-Fi+22' :: 32F-:NIiMl = "2"THEN6069 
■J622 ■FPEFI 'fl+1 ■ :: 32R!IIiR*="."THEN6000 
4623 IFPEEK<fl-l>'C-::::.f!.:i'i, rurn-.-.HtiH 

5000 IFflt="fl"THENPOKEfl, 32 R=fl-22 ■ POKEfl. 6 

5001 IFR$="Z"THENPOKER. 32^ fl=R+22^ POKER. 

5002 IFRJ=". "THENPOKER, 32 -fi=fl-M -POKER, 

5003 IFHt= " , "THENPOKER • 32 ■ fl=fl~ 1 ■ POKEfl, 
5694 IFRJ<3""THEHPri|'.E36F:76.2 , ;.=. POKE36876.0 
5005 POKEPO.! 32 -PO=PO-1 "POKEPO, 4 

^(I0S P0KEPR.-3-": PFl=PFt*i POKEPfl, 7 
5599 GOTO4600 

6000 f'0RC=9T0255 ■ POKE 3637:3 . r he: :TC ■ P0KE36879. Ill ■ 

PMHT"W 
6901 F0RM=189T0255 - P0KE36374 , M ■ NEXTM : P0KE36874 , 

6005 P0KE36869,192-PRINT"V0ULEZ VOUS REJOUER 
<0/N>" 

6006 GETR*-IFR*=""THEN6006 

6097 IFRS="0"THENP0KE36879,8 PRINT'TI" P0KE36869,285 

FORfi=0TO1000 : NEXT G0TO4559 
6088 IFR*="N"THENSVS64892 
60.J3 CCITO6006 

6100 P0=4358:P0KEP0.4 

6101 RETURN 

6102 Pfl=4300POKEPR.7 

6103 RETURN 

7000 FORS=0TO23 ■ SVS59765 NEXTS PRINT"X 

7001 FORC=0TO255 ■ P0KE36879 . C ■ NEXTC - P0KE36879, 8 '• 
PRINT'Tir 

7002 FORM=255TO100STEP-1 P0KE36874,M:NEXTM POKE36874,0 
7009 P0KS36S69, 192 

^010 PRINT'TFIPPES AVOIR CVISITER> LE CHRTERU VOUS VOICI 
OBLIGE DE <VISITER> LE 
CI MET I ERE" 
7011 PP I NT "MIHHHHMMHBONNE CHANCE" 
7015 FORft=0TO5099 ^NEXT - P0KE36869, 295 
7190 FORR=0TO1000: NEXT : PRINT-^VVVVVVVWVVVVVVVVVVVV" ; 

7101 PRINT"V V"; 

7102 PRINT"V WNWUMMWUU UV"J 

7103 PRINT'Y XXXXXXXXX XV"; 
7184 PRINT"V C 1 C V"; 

7105 PRINT"V V") 

7106 PRINT"V WWNWWWWMWWY"; 
7197 PRINT"V XXXXXXXXX XV"; 

7108 PRINT"V V"; 

7109 PRINT"V C C [ C V"; 
7119 PRINT"V :-l l-l it !■! .1 .1 l. II .1 WV"; 

7111 PRINT-V XCX X X X X X X X XV"; 

7112 PRINT"V V"; 

7113 PRINT"V [ V"; 

7114 PRINT"V HMMUUUUUU WV"; 

7115 PRINT"V X X XCX X XCX X XCXV"; 

7116 PRINT"V V". 

7117 PRINT"V [ V"; 
7H8 PRINT"V HHHHHHHHH wv"; 
7119 PRINT"V XXXXXXXXX XV"; 
7128 PRINT"V V"; 

7121 PRINT-V EF V"; 

7122 PRIHT-'VYVVVVVVVVVVVVVVVVVVV", 

7123 P0KE4601-25 

7124 TIi^"F!0OFiOO" 

7125 CLP 

7126 fl-4370:POKER,0 

7127 P=4222 P0IEP.7 
"123 '303IJBS2OO 
712? G0SUB8282 
7299 GETfi* 

724" IFft=4379FfMIir.u=lTHEH10900 

"243 IFR=i'-66Tnr:!iri-|F-MM>>'T J/-:.- POI E 3--.S77 . u me:;tm 

P0KE363 77- 9X0=1 
7249 IFfl=4566THEtlP0FEM*2.:.2 F ij). £f=h.J - .52 ■ POI Eft, 32 R=R-1 

POKEfl. 9 
7259 IFPEEK':R-22:.->?2RNDflf="A"THEN9000 

7251 IFPEEK<A+22K>32flHDA»="Z"THEN9080 

7252 IFPEEK<fl-HK:>32RHDflJ=". "THEN9960 
725 H IFPEEI'M-1 ■•::: 32RNDftt=","THEN9000 

7254 IFPEEK'F-22:- = 32RMI.Fa = 'H"THEMPnKEP-32 P=P-22 ■ 
P0KEP.7 

7255 IFPEE^:F-t-2.-:' = 32Fil[Dtii = "-"rHEMPuFEP- ?■■:■ 
P=P*22:P0KEP,7 

7256 IFPEEK(P+n=32flNIift*=". "THENPOKER, 32 P=P+1 ;P0KEP,7 

7257 IFPEEK-.:P-l-.'=32flHDR*="."TKEHP0fEP- 32 P=P-1 -P0KEP,7 
■;."": !fT0--!'V:71M[|IP0|[-f,;, ■;.;: i;-0' : .ME:82OO 

7259 IFPfi=4556THEHP0l-EPR - 32 ■ G0SUB3282 

7260 IFPEEK<fl-l:.-=4THEN:W09 

7261 IFPEEK<fl+n=4THEH9999 

"40'i IFMI^"R"THEMPi:il:.CH.32T^R-22 PmIEFi . 

7461 IFR*="Z"THENPO! EFl. 32 • F--R+22 Pol EH , u 

7492 IFR*=". "THENPOKER. 32 fl=fl*l " POKEfl. 9 

7403 IFfl*»" . "THENPOKER- 32 R=fl-1 : POKER. 6 

7494 IFfl*--:: ""THEIIPOKE 36376. 255 Puf.E36876-0 

7465 PrjKEPCi. 32 .pu=Pi>l POKEPO. 4 

7406 P0KEPfl,32Pfl=Pfl*l P0KEPfl,4 

3:000 i3i:iT07299 

3200 Pi>455T" POKEPO. 4 

3201 RETURN 

8202 PR=4537 POKEPR ■ 4 

3203 RETURN 

9660 FOPi; =070255 POi E 36373 . r NE>:Tf POKE 36379, 1 1 1 " 

PRINT"*]" 
9901 F0PM=10OT0255 PuKE.V-37".n NE::tn P0KE36877,8 
3-010 F'Oi E >;:?6'? - I ■?.'■ PR!N-"'/uULFZ V0U3 PE JOUEP 

'0/N)" 

9911 GETR* IFRJ=""THEN?011 

9912 IFR*="0"THEUPUKE3686? 205 POKE 36373' . 3 PRINT"*]": 
GOTO 7 199 

9013 IFR*="N"TH£NSV%64S02 

?014 IFRfO"O"OPR*O l, N"THENGOTO9011 

10000 F0PC=0TK3T. PFH E >:*7-' . C HE: ITT rfu c -:r-.n?* . :-: 

PRINT":*" 

jOOOl F-jPn-.-.rjf.T.TijlwMviF.F-; pni t 3-375 . M NEI-ITM POKE36375.0 



LE BALLON 
EN FOLIE 



Chercher des bouteilles de gaz dans une caverne n'est 
pas banal, mais le faire en ballon, cela devient de la 
folie furieusei ! ! 



Mode d'emploi : 

Attention, ce programme doit etre tape lei quel, le moindre caractere 

en plus oil en moins perturbera son lonctionnement. 



8 P0KE53248-24.21 : POKE53248+27. 1 DlnFT/A-iZB. 1 >. B<7. 1 > 

1 POKE2040.230 nE-3 : Sl«lZ2ge 

2 V«53246 P0KEV+2L15 

3 F0RI=230*'64TQ253*64+63 RERBH-POKEI.fi -NEXT 

4 POKEV+48. 3 POKEV+4 1,8 PCKEV+42. 13 

5 C0-S4272 O-I024:POKE34296. I5U-5427B 

6 REP1M 

7 POKEW+6,0PQKElJ+7,2a0 P0KEU+B.8 

8 P0KEW*I3.a:P0KEU+14,a-P0KEW*15.132 

10 POKEW*2.2e8-POKEWt3.ia-POKEU*9.00-POKEIJ*10.100 GQSLIB1680 

1 1 FORI -0TO7 ■ REflDBC 1 , 8> . B< 1 . 1 > : NEXT 

12 PR1NT"M PRESSEZ LINE TOUCHE POUR CONTINUES 

13 0ETH»:[FR*«""THEN13 

14 PRINT":]" 

15 SC"a : t1E-3:DI".BS:fl2-8iLE»l:T-l 

16 P0KES324B*33.eP0KE5324B*32.B 

Za DATH7, 224. B. 59. 32, 8, 11 1. 110. 8, 223, 123, 8, 223. 123. 0.178, 170, 
0.223. 123.0 

21 BRTH223. 123.8. Ill, 118.8.59.92.8. 19. 286. B. 8. 16.0.4,32,8.2. 
64.8.7.224.8 

22 BHTH7. 224. 0, 7, 224, 8, 8,0, 0.0, 0,0, 0.0, 0,0, 0,0,0 

23 IFLE-2THEN58 

24 POKEV+24,24:PRIHT"MIIIIP,HRAflflRfiflRRRAflRAflAAAFIRAAflRflRfl OGJRN" I 
1FLE-3TWEN7808 

23 PRINT'AflRfl RRRRR flfiflfl" 

26 PRINTER flBR r<fi NFLI1G" 

27 PRINTER R fl" 

2B PRINT"fl flfl H HI NFLrIG" 

29 PRINT"fi fi flfl RH A" 

30 PRINT"fl Rfl flfl Hfl H" 

31 PRINT'S HRR IMBII AAA RAHR A" 

32 PRINT"HRnBII HHRAAWmAAAfl RRRRHRrllBII RR" 

33 PRINT"flR«7HfiRA RfiflRKWRA" 

34 PRINT'flR RRHH" 
33 PRINT-fl flfl" 

36 PRINT"fl fl" 

37 PRINT"fi RR fl" 

38 PR1NT"A flfl flfl" 

39 PRINT-fl Till RRR1BII Rflfl" 
48 PRINT"Hfl RRS1WR RRRKWRRfl" 

41 PRINT "flflfl RRRRBFI flfl flfl" 

42 PRINT'AHH RRRRA fl RR" 

43 PRINT"flflfl RRflflfl R" 

44 PRINT'HHRR flfifi H fl" 
43 PRINT'flfl Rfl flflfl flriBII RR" 
46 PRINT-fl Rfl RAflflflflflflflflflSBWRR" 
4' PP.1N1 Hh rum Rflfl iTISH fif<F&FF-;F.-fiHfiflHfifiFr 

4B PRIHT-RRRjemRRRRRSBW^Hfi-f-i^-^RMRRHflHa-j :DOTQ90 

«. ™. '"'■'"' :p 0KEV+24,24:pRINTCHRf<14>, 

31 PR I NT "flflHflfiflftflflfl HflaRH RflRRRflflflfiflflBRR 2SJR.N" 

52 PRINT-flflflfl flHBflfl "fifig" u „ „„„ 

33 PRIHT"OH flflfl flfl NFLI10" 

33 PRINT'fl flfl fl HI NFLrIG" 

56 PRINT"H H Flfl Rfl H" 

57 PRINT"H flfl flfl flfl fl" 
3B PRINT'fl flflfl flflfl flfiflfl H" 

59 PRlNT"flAFfIBII flflRflfl AAAAAAAflflFWRRfrlBII RR" 

60 PRlNT"flflS3mRRR flflffiWR" 

61 PRINT'flfl fl" 

62 PRINT-fl fl" 

63 PRINT-fl ITOII H" 

64 PRINT"fl fl RRRRflflRR fl«»fl" 

65 PRINT"fl flfl RRRHR flfiflfl" 

66 PRINT"fl flfl nBIl RRRRR flflfl" 

67 PRINT"HFI HflflflaiWRRRRHR mTBII Rflfl" 

68 PRINT"RRH flAflflflflflfl»Hfl Hfl" 

69 PRINT"flflfl flflflflfl Hfl Rfl" 

70 PRINT'flHR flflfl H" 

71 PRINT'flflRR RR flfl fl" 

72 PRINT'flfl RR Rfl HSU flflfl" 

73 PRINT'fl RR RRflflflSVIRRflflflflflflfl" 

74 PRIHT'flfl KBIi flRR HBII RflRflRflRnRflflHHHHHH" 
73 PRINT"flflflBEB1flflHflfl3SSHRflRRRRRHHHHHHRRRFI«"; 

98 Kl=56336:DEFFNfl(E>=-e:PEEK<5632L)AND32>032>- 

C(PEEK<K1)AND16>=8> 
91 rEFFNB<U)"-(P£EKC283)"7)+(PEEK<2B3)=2)-<<PEEK<Kl>flND4)=8)+ 

t(PEEK<Kl)HNDa)=8) 
95 P-0 

108 X*138:Y=130 ; T»1 ; R=0 : 1=0 POKEV+21 . P P0KE2848 . 258 - POKEV , X ■ 
POKEV+-1.V 

181 PRINT"«iaBQ"TflB':31>RIGHTf<"000800"+RICHTt(STP*<SCJ, 
LEN<STRJ(SC))-1),6) 

182 IFI1E=0THEN68ea 

103 FORI"lTO3'POKE2040+I.250PG*EV+<2*I).0:PUKLV+(l»2.' + l.2wU 
NEXT POKEV+16,0 

184 IFI1E>1THENF0RI = 1T0I1E-1 P0KEV+16.2TC I >+PEEkCV+16.i PQKEV+ 
(I*2),10t<l*10>-NEXT 

185 POKEV+21, lS:G0SUBI7BB:G0SUB26e- 1=8 

186 IFSOHITHENH1-SC 

187 PRINT"*WWK»"TflB<31)RIDHT*<"e80e0G"tRIGHT*<STR*CHI>. 
LENtSTR*(HI»-l),6> 

200 V-Y+T T=T+BI ■IFFNR'.0)THEHT = T-.5'OOSUB500 

201 H9=FNBt8> 

218 R=R+fl9/2:lFABS(A3>=lTHENPCKEW+13,I29 
211 IFR9"0THENPQKEU>13,0PDKE2040,250 

220 R»R-<R». 05) : X-X+R : POKEV, X ■ POKEV+1 , V 

221 IFflS—lTHENFOKE2040,253 




VIC 20 

9 Suite de la page 2 



edito 



Ach, (ou fou en doutiez I Heplo- 
chiciel est un chournal de dtoite. 
2ette semaine. un interview ex- 
clusive du Senateur Raaaausch 
qui demolit tout letfort informali- 
que du bon goulernemenl de 
gauche de chez nous, zest une 
honte ! Et en plus, horreur et 
schweinhund, un bedit dessin de 
notre bon president Francois qui 
est une achbominable karikatu- 
ren irreverencieuse des valeurs 
franchises apparait dans notre 
page de bandes dessinees. 
Z'esl un enorme scan dale qu'on 
profile du resultat des elections 
canlonales bour ze permettre de 
debtaterer sur nos respectables 
institutions. 

Mais non, cong. las rien 
compris au film ! On est parti se 
fairs linterviouve du Senateur 
passe que y a que lui qui pige 
quelque chose a nos problemes 
en "ique". Si tu prononces "Infor- 
matique" ou Telematique" dans 
un quelconque service gouver- 
nemenlal on te repond des 
conneries du style: "Tout baigne. 
on est les plus forts !" ou "La 
France ? Maquarelle. on est les 
plus beaux, on a le centre mon- 
dial de linformalique, les cen- 
tres X 2000, le Thomson, I'Alice 
el tout et tout, que meme les 
americains, ils ont qu'Apple et 
IBM, on est les plus forts, je te 
dlsl" 

El puis lui, deja il nous avait 
aguiche avec des petites decla- 
rations, il nous faisait de I'oeil, 
un senateur qui comprend 
quand on cause 'ique", tu 
paries ! On elail tout contents. 
Alors on y va. lout propres, on 
change de liquette et tout, et 
non seulement on tombe sur un 
type qui comprend tout, mais en 
plus on avait du mal a suivre ! II 
parte vite, il a des idees sur tout 
et y en a meme des bonnes 
dans le las. C'est rare: selon un 
sondage organise par Hebdogi- 
ciel Conseil seulement un sena- 
teur sur 500 comprend les ques- 
tions du sondage, Alors voilia, 
On est a gauche, vivent tes ou- 
vriers et les babas, coot ! 
Zest sgandaleux d'entendre des 
choses poroilles, bibe Le Pen, 
hard! 



*f *• 



■:■ -^F'fW^iOlfiH'E-TEF'-: p-iKE?^8?4.Fl-ME:aFl Ful'E-^r-i.O 

• ruFH-ir-rrm-i^.T. FOrF^-s.^NEXTfl 

* F0Pfl=233Ti:iIM-;.TEP-l Pu! E 36:17", - fi HE: -:TFi P0I-. E. 36875, Q ' 
' Fi.;pH=irii;iTri?SS P0KE3«876,FrrJEXTFt 
} FOBfl^55TO100STEP-l P0KE36876.Fi nt- :-: i R r-o;-s:.. - :;-:>, -o 

1001, Fi:ipH = 10i:iTM£ c :i5 P0iEJ:f3rr.fl-HEXTFI 

> FaPFl=^=^T01001-TEP-: Pui E^:>:77.F|-HE:-:TFi Pli'-'S Jc.377,9 

leci.:- pmE3(?s73-in ppiiiT"a' v^?»^i^.Q.m^ ije;:t pfint-t pi-he::^.:--.; 

"" I CLR 

5 ft=43?l POKEfl.O 

;■ FuFn=lTuIl POKEP,,:^ R=R- 1 POI-Efl ■ ■ F0P.T= 1 TuIT.im he:!T ■ HEKTr- 



222 lFft9=lTHENPOkE2840,252 

n\ h=!>inr ■■-'-30J/eJ*40f->;-K' ■,-i ;=?££■ s,.fEtir-: ■■-:■ -•;•:■ :=i .:-j-t --;■-.;■.■ 

238 ffi«I,8>-M fi:-:<I,l>-V: 1 = 1*1 IFl>488THErl6eG 
231 PRINT"«B"TflBOl>4O0-I"ll " 

i40 r.QTr.200 

^-.. F'.t:-.;;.--..* Fur.Eu-riuu f-.r-.;-, ■: 

261 P0KEH+13,a P0I'EU«14.0 POKEH+15. 132 

2£2 POKEU-IMOO POKEH+3,5 FDKEU-9. 60 P0KEI1H0. 10tJ RETURN 

408 IFS-e'i-;THENP0FEG + IHT"Y-^.'/-?.'»4 i :) + ' :-lv.'/Z-V:- :2 .;■■:■ I i.-i :\> 

413: FTifEl-l+li.iJ-prjKEH+14,0 FDt Ell* 15, i^ FOKES040.251 

■102 PDi:EU*9,e-PQKEH*10,2S5 POKEU* 1 3. 129 F0RJ=VT0255STEP. 5 Put.E5.:;43 . J HE/I 

■'■■}■'■ ■ :.:i- ! .• ij f-iJkEII+14,0 PGKEW.15,255 

■lij'j P'>E34296,15 

•tee PO^Eil*9,0 POKEW*10.e POKEW+13. 123 F0PJ=15TOOSTEP-.2 P0KES42:^, .1*. Z P0hE , -;I 

1 

408 P0h.EV-t.32.iJ NEXT Fur EiJ-3 >30 -■> EH+18, 100 

409 PQKEW*13,0 : POKEW+14,O-POKEU*IS.132 POKES42S6. 15 

410 ME-ME-1 GOTO100 

439 FCRJ-l-lTOlSTEP-1 POKEV.flKf J.0^ POKEV+1 .fl^(J. 1 > KEKT 

450 (1-PEEK<0+ HIT'. CY-5O.j/8/*40*'>:-2ia '/■=■ + 120' ni'M-176.' I = H*7 ■ '4y0-IV18) 

451 PPIMT , -«80C«!lilMW"TfiB'.-29>" IIPLMG" PPIHTTflB(29>,ni "II C" 1 "II " 

452 PRlllTTRB<3I/"D"Nl*r'll " : SC-SC*M1*I POKEW+6+7,0 : P0t:EW6tl4,G : FDR1 = ITO280 NEXT 
iZ- ri-.-PI=fjlr.i" Pij!EII-6.:-;. P0> EU--.11 K*£ll*3 POFEU-:-. b ■ I ■ '.' ■ PUh tllt-i . b'. 1 ,8>»" 
4': 4 P'jr LU-. .1.' luf-E^lTDt.' I,:." 0. 6 MEXTB.I 

456 1FR2=0RNU-..: r:ri(}iiiEt<!-t:=ME+rft2-i 

457 P0KEW*7 , 200 : POKEN+8. P0t:EW+6 . 33 ■ P=P+ 1 : lFP-eflNBLE= 1 THENLE"2 G0T023 
45G IFP=8AN!.i i _i; = i :'r'N£nL.c = > '1-GT023 

453 IFP=eflNBLE=3THENLE=l-DI=DI*.02G0T023 
4£0 F0RI = lTO133:NE)<T:G0T0iee 
1'Ou r-.,.PE r i42/-.. i j Puh.EtJiTv;, ;;> FETL'PM 
600 F0RJ=1T015 

901 POKEHH.0 FGrEU + r.:? ?■:*£;>? Fr.KEU-r:",. Jj FOEIJ*;- -i F-ijt tie L . \ -V? 

S02 FORI=1TO100 NEXT 

603 NEXT 

^.;>4 =.:■ E54i>^. ;5 FOrEiOJO. ;-::■! fcf-j^vtuiss poi £5:^43, j next 

=.&:■ FOi £.;-.-■:' f-oi £u-:-: --:■ l..-: ; i,:.- f-.:.f- i = i^.to>.:: = te? -...- ■: s;^:-. :•.■;■ -.z : 

ii'i POFEU-^Mvi Put £!]-;•:! :.:■-■: 

607 P0KEW*I3,U PUKEIH14.0 PC* EW 15 . 1'-,: ■ PC'I L':'.4iJ"-; . 15 
688 ME«rtE-rOOTO100 

.002 DftTR12,6,ei. 138. 12, 0, *?•■ 24,0,49, Irs, 0,204, 102.0.51 0. O-O, 207,0,246, 17s, 
m.- IiRTfi^,24.y.25, 140. 0. 9f - lit . 1 SI ?. 0. 0, 0,0.0,0,8 

004 DHTA7 . 224 . , 7 ■ 224 , ■ 7 . 224 ■ ■ .!■ ■ ■ u . . . , , . ■ Q . 3 , 

005 I'HTFi:-. 224. 0.59. 92.0 1:1.11c..' ..2: . 12? . 0. 22 i ■ 113 . ■!■ 1/0 ■ .'.' 22--.U;0 
OOF; HHTF122?. 123.0, 111. 119 . 59- 92 . . 19. 200-0. J. !■£■- . 29 . 32 ■ 0.50 ^.4,0,7,224.0 
00" I'd FFi/. 224.0./. 224, 0.0 0. 0.0 00. 00. 0-0. 8, 8 

00v iinlM/. £ ,:4.0.59,92 1 : 1 1 1 ■ ■ ■.-,-.: 123 . . 223. 123. ■ l"0- I 'o 22] 123,0 
i^y I.mTm22J. 123.9. Ill 11: 53.- 92 ■ 0. 1.- ■ 200. O.-z- !€■. ■ 4 . 5^ ■ 2 ~i / ■ 224 . 
010 :'9rr!" 224.0 / 224-0-0 -3 00- 00. 0-0. 0.0, 0,0 
01! jmTmSO'JO:^. ^0-20.50 32 50-FO 50 . 50-50. 40 ■ 50 ■ -0 ■ 1 
660 PR HIT "nil" 
601 PRINT"* «lltU-TT^ _ - »-,-" 

.602 PRINT" SI "iPRINT'OT 3" 

603 PRIHT"J0 aOIFE NlfSIijN EST DE PETPOUVER LE" 

-.'04 — ■'H-i-XntlLLE? DE 0R2 2'flh; .-■ >;RVEKH£ HE Lft I10PT", 

695 PRINT" VTJUS AVEZ UN TEI1PS LIMIT POUR EFFECtUER CELL-CI" 

;j- -:-:■■-■ -SO ->3UF: CEl.fi" 

::: PPINT")rn;R3P H.-'E =polir FILLER m ORUCHE OU" 

689 PRINT"CRSP C-.-P =riji.ip iT..:.EP n UrOITE JOYSTICK!" 

618 PRINT"-WHIOUuPe LEV POOP HOHTES PORT I" 

628 RETURN 

"33 FO;.E;.-€ + 14.0 FOItll-/.:- 04+3.^3+2 FOI El.ni.-M4. FOi EU-5-H4.09 POIEIH4 + 14 160 

701 F0PJ=10TCI1STEP-1 P0l:E..----:4 3; ■ POi EL-l+3+14,t - ■-■■ '.: 1-2* 1» "5 Pol EN+6+14.65 

-02 FC:FI = 170.I + 7HEXTI,J 

333 RETURN 

.000 pf III1PLEF ■■■?■. ■ Mil U2000 

5000 POKEV+21.. : POKE 193,0 

6001 PRINT"WIUiairaniOinp T IHU l 'TflB<30J,"RGrt P E " 

6002 PRlNTTflEOOV " ^POKEH+6+14,0 POKEH+3+14.35 POKEH+4+14, 177 
-O-:; FrjKEll+7+14,96+8 POKEU+b+14, 33 FOR I = 1T010^ NEXT 

6004 PPINT"«OlBIW>imiHIIIIUEraiO ll TflBC30).:" 

3005 PP1NTTRBO0)" - 

6916 OETflf IFR*-""THEN6081 

6011 G0TOI5 

7800 POKEV+24,24 :pRIHT"WII! 

7001 PRIHT"flRFIH 

7882 PR I NT "flfl 

7003 PRINT'fl 

7084 PRINT"fl flflFlflflfl 

7005 PRINT"H fl flfl 

7096 PRINT"H fl 

7007 PRINT'fl ITCH fl 

7008 PRIHT"RH HH7WRR 

7009 PRINT" RRHHHHH 

7010 PRil(T"RR 

7011 PRINT"fl riBII RR flfl" 

7012 PRINT"fl flflaiBflfl R H" 

7013 PRI!IT"A flfl flfl R ffltl fl" 

7014 PRINT"R flfl FW fl»W flfl" 

7015 Pfi!NT"R PR HfiR Rfl" 

7016 PPINT"RFl fl flflfl flfl" 

7017 PRINT"RRH R B FIR Hfl" 

7019 PRINT"flAA flflfl Rfl" 
7013 PRlNT"flflfiflflflflfl fl flfl niEli fl" 

7020 PFim-flRRR fl flflfl*m fl" 
7Q21 PRIHT"RR H R" 

7022 PRINT"R H Hfl" 

7023 FPINT"fiR HBIi RRH rUBII flflfl flfl 1 
7lv:4 PP1N1 'fiMH^..i»-3HHHhfl34^i-fiHPF1Mfiriri.-!.-.-..::!Mri,i: 
7025 DOTOW 



1C1017 P0(- E ?6t>;3 ■ l?:-:-PF'IHT"r?vi:L"- ETEi TPE'3 FOPT LJ'CPMTIJLBTIuHc:" 

1001? PRIHT-'.'ijlJLEZ VOIJ-- REJOUER- l=TflELEFU 1 

TflBLERlJ 2" 

10019 PRlMT*3=TflBL.EfUJ 3 4 "TABLEAU 4 3-TFlFLEflU 3" 

10O?0 OETR» l IFR*-""THEN10020 

10021 ]FPr-"l"THklC0O 

10>322 irPr="2"THEHP0IE36S^i-2i:5. nriTul lfj.1 

10024 l=p4 = "3"THEHP0i.E3,;:3d:^.2i3T r-r-ri:-?0 

10025 ;FF^"4"THFIIPi;ilF.>:.:V.:;< ."OT. iM3Tr-150O 
100:-:" IFPf^"T-"THEllPuKE>-.:;t.'f-.;:L? e . LOT07100 
100T/3 f-iJTOlO020 

■30000 Fvl E?^';^9. ]■:<■: PPIIIT":)" 

-OOOI PF1MT-EH FLU? DE HE DUE JE VIEK5 HE FFlIPE V0<JS PEVPEZ" 

30002 PRIHT'THE PHS S RPPPOCHEF- 1T0P F'PF.'Z HE? FOIITO - ME?" 

30003 PRINTLINE RIEII TOLl'IHFP tlUP? flPPfllC-MEF'; ETC. .-'«"W" 

3OO06 PRIHT"liiii«ir* + *fit + + *< >* ***Z*M 

3O0I0 PPIHT'-WMTFlPEZ UtIE TOUCHE" 
■70100 RETURN 



.---TF.ii Fl fl" 

Rfl SPWAARITIBII Hfi" 
RRRRRaSmflfl" 
flRRRRRAAA" 



H 



GREENPEACE 



Oeuvre pour une bonne cause. Aidez Greenpeace a 
proteger la Faune et la Flore. 



Michael SCHMITZ 



TI99 BASIC ETENDU 



100 REM --GREENPEACE-- 

110 REM WAR SCHP11TZ MICKAEL- 

120 REM -SUR TI 99/4A*B.£.< 

130 REM "illANETTE' 

140 CALL CLEAR :; CALL SCREENS 

;? TO 11 II CALL COLOR tl. 11.5)1 

ISO CALL CHAR197. 




130 CALL CHAR I I 

200 CALL CHARM 

210 CALL CHARtl 

"■.'';' CULL CHfil- not-. 

240 CALL CHAR! 11 

230 CALL CHAR (11 

260 CALL CHAR Ml 

270 CALL CHARUl 

290 CALL CHARM: 

310 CALL HCHARC 



'FFFFFFFFFFFF7FIF"! 

0FOFOFOF0FOIOOU0-) 
■000<V->K'FOFOFuFOF'l 

F6FCFEFFFF3F3FFF") 



LES 
710 DISPLAY AT19.1):"DE DYDXINE LANCES P 
AR UN HELICQPTERE... MAI 

S ATTENTION DE MULTIPLES DANGERS VOUS AT 
TEMDENT" 

720 DISPLAY ATU3. II: "LES ICEBERGS, LA FR 
QFONDEUR (UN BIP SE DECLANCHE DES DU 
E VOUS DEPACEZi-eiOMJET VOUS IMPLCSE7 

730 DISPLAY ATM7,1)I"A CHAOUE PUT RECUP 
ERE VAUT SO POINTS. CHAOUE PUT PERDU vu 
US ENLEVERA UN MQMBRfi DE POINTS A LA PI 
M DE LA PAR- TIE." 

TS VOUS RECUPEREREZ 1 VIE1TIR PGUR RE 
CUFERER LES FUTS1" 
730 GOSUB 1BB0 



1130 CALL KEY(l.E.D) 

IMO if E-iB then isao 

1150 CALL POSITIONOl.X.Y) 
llf.0 CALL C0INC!«3.1Y2,flO.5fi,S)ii 
1 THEN CALL DELSPRITEK3) I 1 0-0 : 
1170 CALL C0INCIH3. 192.138,56,5)1 
-1 THEN CALL DELSPRITE1M3I:: D=0 



■■-.vr;-::oi.-.HBFCFEFC"j 



, io: 



ALL C0LDR!2.6,5) 

BOO CALL HCHARM, I. 40,32*7) 

910 CALL CHARMOO."02O2O7O7O7O7O77F7FFFF 

F7F3POF030Q00BC'5''C'..'E :E :■£:..!- '..FFFFFCFCFCFOE 



100. -1.0) 
1200 IF XI 

1210 IF ) 
GOTO HBO 
1220 CALL COINC!« 



[ THEM B-27 
'J CALL C0INCI«25.H1 
[ THEN B-25 



!;■?', S=1NT!RND»3M 



GQTD 13K 
.Dl 
GOTO 131C 



10,10- 
3B0 CALL HCHARM 
3TO CALL HCHARM 
400 CALL HCHARM 
410 CALL HCHARM 
420 CALL HCHARM 
430 CALL HCHARM 
440 CALL HCHARM 
450 CALL HCHARM 
4iO CALL HCHARM 
470 CALL SPRITE 1*1, 71, 13,8,64) 
4B0 CALL SPRlTE(»2,a2,3,24.80) 
490 CALL SPRITE<*3,69,4.40,96) 

510 CALL SPRITEHl5,7a,3.72, 128> 

320 CALL SPRITEHI6,B0,4,SB, 144) 

530 CALL SPRITEIH7. 69,13, 104,160) 

540 CALL SFRITE(lia,fi5,3. 120, 176) 

550 COLL SPRITE(»9,67,4,136,192) 

560 CALL SPRITE(«U,69,13,152,20B)i: CAL 

L MAGNIFYI2) 

570 CALL CHAR(42."3C4299A1A199423C") 

5B0 DISPLAY AT(19, 1): "PAR SCHMITZ MICKAE 



B30 CALL CHARCJ7. "FFFFFFFFFFFFFFFF") : : 

G40 CALL HCHARC21, •1.97,321 
850 CALL HCHARI24, 1,97,32) 
B60 CALL HCHAR122, 1,97,3) 
870 CALL HCHAR!23. 1,97,3) 
BOO CALL HCHAR(22.9,97.4) 
B90 CALL HCHAR(23,9,97,4> 
900 CALL HCHAR122. 19,97,4) 
910 CALL HCHARI23. 19.97,4) 
920 CALL HCHAR!22.30.97,3> 
930 CALL HCHAR123,30,97,3) 
940 FOR 1=3 TO 4 ;: CALL COLORII, 11.51! 
NEXT I :: FOR 1-5 ID 7 : ; CALL COLOR ( 1 
14,5):: NEXT I 

950 DISPLAY ATI22,3)SIZE(3)i"VIE" 
960 DISPLAY AT122. 12)SIZE14) : "PRQF" 
970 DISPLAY AT122.22)SIZE(5I: I, SC0RE" 

990 COW- IN' 



1310 REM -EXPLOSION- 

1320 CALL MOTION!*!. 0.0) 

1330 DISPLAY AT(2.1):"V0US VOUS. ETES FF 

CASSER CONTRE UN ICEBERG" 

1340 FOR 1=25 TD 2B 11 CALL MOTIONI-I.I 

O):: NEXT I :: CALL DELSPRITE 1*3) 

1350 CALL COLOR (#1.8) El CALL L0CATE(»6. 

0,0)11 CALL CHAR(36."010D0573BB01BD13r 

90599274543030060409CA200629010324032C! 

1360 FOR 1=1 TO 28 :: CALL CDLQRdH.5); 
CALL COLOR III1.5H! CALL SCUND(100,-5,: 
:i CALL COLORtHl.16):: NEXT I 
1370 VI-VI-1 :: GOTO 1650 
13S0 REM •IMFLOSION* 

1390 CALL nOTIONHl.0,0) 1 : DISPLAY ATI: 
1)I"LA PRESSION DE L EAU A FAIT IMPLO! 



) CALL DELSPR11 



198S" 



' THEN 760 ELSE t 



6B0 FDR 1-2 TO 14 tl CALL COLOR M . 13, 15) 

690 DISPLAY AT<2. 121 ! "GREENPEACE" 

700 DISPLAY AT(». 1):"UDU5 ETES ENVOYE PA 

R LE MOUVEMENT EC0L08I5 

YSCAPHE POUR RE 



1400 FOR 1=25 TO 28 J: CALL MOTIQN1IH.0. 
Oil I NEXT I ;: CALL DELSPRITE(»3) 
1410 CALL CHAR136."00000000445555FF33141 
OOOL'BOMOOi.iOOOOOOi-JOOOOiXC':. 24 FE24 240090000 



1420 FOR 1=1 TD 30 

1430 CALL SOUNDMOO. -1.1,150. I) 

1440 NEXT I 

1450 CALL COLOR!*!. 6) 

1460 CALL CHAR136. "040303000202000400020 

:■. ■ ■uV.Ourv : .-.i.t>.1y,.-.i :^..i.)'.v,.j .ivLOCOuOIOufii-ir!.", 



CALL SPRITE!! 
SOUND! 1 
570 GOTO 107O 

590 CALL CGINC!* 

SfJ-SC ■'■-'.' 



) IF M(0 THEN 1770 

j FOR 1=25 TO 2B 

) CALL MOTION (*I. 0.-3) 

i NEXT I i; CALL OELSPRITEll 



10 DISPLAY I 



760 GOTO IK 

7B0 FOR 1=1 
i i NEXT I 
790 DISPLAY 



TO 2B : : CALL MOTION!! 



040") 



C-IT+10) 

BIO CALL KEY!O.E.S) 

820 IF E=1U THEN 19! 

B30 IF E=110 THEN ENi 

B40 GOTO 1810 

B50. VI=5 :; SC-200 : 

B60 CALL HCHARM. 1.4' 

8B0 REM 'MUSIC* 

900 FOR 1=18 TO 26 S 



3 CALL SOUND (1 

I CALL SOUND M 

3 CALL SOUND!! 

3 CALL SOUND (1 

) CALL SOUND M 
J COLL SOUND! 1 
) CALL SOUND!! 
J CALL SOUND 1 1 



> CALL DELSPRM 



sCBIlUBXNB "**• 



1100 CALL JOYSTM 
1ISIZE(5)|USING " 
1110 DISPLAY AT(23,2)S 




ANNEAUX D'ORIC orici/atmos 



Des anneaux qui tournent a vous en faire perdre la # E93D. Comme dhabitude. modifier ies plot 

tete. Arriverez-vous a Ies reconstituer ? ? comme suit : 

OHIC 1 : 

Thomas GEMPP. PLO TX|Y '" A " 
SCRN (A.B) 

Mode d'emploi ATMOS : 

Pour Ies possesseurs d'ATMOS. remplacer en ligne 400 le CALL # PLOT X-s- 1, Y, "A" 

E6CA par CALL # E76A et en ligne 780 le CALL # EB04 par CALL SCRN (A+ 1 B) 



3 REM LES RNHERUK D'ORIC-1 

1? TEXT 'CLS; CLEAR 

Stt D0KE*FE,[>EEK<:»t276) 

25 D0KEttFD,DEEK'::»2- f '7^ 

35 P0KE618, 10 ■■ PHPtRS ■ 1W7 

■W GOSUB.:'t.':iti PEiTOPE 

litf fJlMPl' i^Ci '.P^' 20 ..P3>; 100'j 

S6 F0Rfl=iT020 

7'3 RERDPKfl) 

80 MEXTfi 

99 FORB=1TO20 

106 RERDP2<E> 

110 HEXTB 

120 0RTR4862 1 , 48541 . 4S4t" 1 , 4 

8381 

130 &flTB4829S,4821?,4021S,<* 

8213 

140 0RTR4S211.48283,483ii7.4 

8447 

150 0RTft48527, 48^.^7.48685, 4 

160 DRTR48773, 48775 . 48777, 4 

1 7« ['RTR43377 . 48457, 48537, 4 

8617 

180 DflTfl4869!5>j 48731, 48783, 4 

8785 

190 DRTM4S787.. 4870?, 48631 .4 



855 1 

200 ['RTR48471 , 483? 1 , 4830? , 4 

8227 

210 DflTfl4S225, 48223.43221,4 

8239 

230 X*=" 111111111 1222222222 

3" 

240 Y*= "3333933333444444444 

250 Xl**H*iYl*=Y* 

279 REN AFF1CHE T1TPE 

290 F0PI=2T018 
300 PL0T1, 1,10 
310 NEXT! 
315 PLOTl.0,10 
320 PnKE48002,10 

339 RS="LE':: RHHERUX D'ORIC- 
1" 

340 F0RI = 1TOLEH',R5> 
350 Z*«MID*CH*.Ij1) 
360 Z=flSC( 2* > ; P=4SO08 

370 P0KEP+ 1 ■ Z -- POKEP+ 1+40 . Z 
380 NEXT I :PL0T1, 1,8 
^90 PL0T5- l,CHRSf 3b?+" THOU 
RS GEMPP ( 11/8x1964?" 

410 REfl MELRMGE LES COUL 

EURS 

436 PL0T1,21 . " Patie 



uti ittstsTtt i& melan9e. 
GOSUB5010 

440 i;RLL»E8CR 
450 i;OSUB3010 

469 GOSUB5310 

470 F0R1=1TO100 
430 X=RM[K1^V=RHD( 1 > 
490 Xl=RNr.": 1 > = V1=RNDC1 
500 IFX>YTHEH640 
510 IFX1/V1THEN580 
520 XS=RirjHT*fX*,lHLEFTt'.X 
*,19> 
530 Z*=LEFT*t Y* . 4 )+R I GHT*< X 

s,n 

540 Y¥=ZS+M 1 DS< Y$ .6,14 >+M 1 D 

S(XS,5,1) 

550 Gn-:.MB50iO 

560 P3f 1>=1 

570 GOTO760 

580 XS=RIGHTS':v$,19>+LEFT$f 

XS,t t 

590 Z$=LEFTS< YS. 4 '+R1GHTS? X 

S. 1 ) 

600 YS=ZS+M I Dm YS ,6.14 >+M 1 

S<X*'5j1> 

610 GOSUB5150 

620 P3C I 1=2 

630 G0TO760 




640 IFX1>Y1THEH710 

€-5i3 ¥*=PIGHT*<YS, 19>+LEFTS< 

Y* ■ 1 > 

66Q ZS=LEFTSO:S.4HRlGHTSCY 

%,\"> 

670 X«=Z*+M1DS(XS,6, 14)+MID 

*>CYI,5,1> 

680 G0SUB5459 

f.SCS P3C 1 >=3 

7O0 GOTO760 

710 YS=RIGHTS<Y$, 1 >+L.EFT*<Y 

$,19> 

720 ZS=LEFTS(XS,4HRIGHTS<Y 

* , 1 ) 

730 XS=Z¥+N I D*< X* , 6 , 1 4 >+M I b 

S(YS,5,i:> 

740 GOSUB5310 

750 P3< I >=4 

?ee next 1 

770 ZZS="iiyyw" 
780 CflLLttE304 
790 POKE48002, 10 
800 F0RJ=1T0LEN< RS > 

810 Z5=HI[>S<RS.J, 1 > 

R20 Z=flSC'"Z$:) = P=48008 
830 POKEP+-J.Z 
840 MEXTJ 
850 X2S=XS 



860 Y2*=YS 

880 REM RNNONCE DU BUT 



"fl P?rtir de 1 



900 PL0T2. 



910 WRIT200 

920 F0R.J=lT0i9 

930 2^Ft.<NI0*(Xl^Jil>> 

940 IFZ=lTHENn=i :0$="i-"' 
950 IFZ=2THEMO=3:0S="l?" 
'^60 P0KEPK.J)-1,0 
970 P0KEPKJ'-41,0 
980 P0KEPKJ5,flSCX0*> 
990 POKEPKJ)-40,RSC<OS> 
10O0 MEXTJ 
1010 F0RJ=1T019 
1 020 Z=\'ftU. M I OSC Y 1 $ , J , 1 > ■) 
1030 JFZ»3THEN0=2>0»""_" 
104G IFZ=4THEN0»7'0»e»_" 
1050 P0KEP2< J 1-1,0 

1O60 pokep2':j:>-4i,o 

1070 POKEF^.D.RSCXOS 1 ' 
103O P0KEPZ<J)-40,RSC<O$) 

1090 HEXTJ 

110O PL0T19,21,"obte-m2 o 



OK 



Suite page 5 



TRAPPES 



TRS80 



Bon suivez moi bien. C'est un jeu ou les regies sont et eliminer egalement (ce serait plus simple) les repe- 

remplacees par des regies qui se croisent et qui peu- res adverses. 

vent etre pleines ou vides. Sachant que sous une inter- Fin du probleme, a vous de jouer ! ! 

section il peut y avoir la partie pleine de la reglette ou 

un trou , il faut loger ses reperes dans les intersections C. COUROUBLE 



SUITE DUN' 73 



7000 REM *** 

7010 REM BOUCLE PRINCIPALE 

702B REM •******# ■>*#»«*«»« »■»»*«»• 

7050 JP=0:JA=0 

7060 FORZ=lTOJO 

7070 IFPJ(Z)=0THEN711B 

70B0 IFZ=JATHENRETURN 

7090 PRINT3176,RL;NJ(Z) ;" JOUE.";=JA=Z 

7100 GOSUB7550 

7110 NEXTZ 

7120 GOTO7060 

7500 REM •*•»*##***«#***•»****»*** 

7510 REM CHOIX REGLETTE ET SENS 

7520 REM **»**#*».»*..*..*...****# 

7550 PRINT3304, "REGLETTE 7 "S 

7540 R=INKEY*:IFR='"'THEN7560ELSEW=A5C(R) 

7570 IFU>4BANDW<56THEN7590 

7580 IFW>64ANDW<72THEN7650ELSE7550 

7590 J=W-47: IFJ=JPTHEN7800ELSEPRINT3313, ' 

W)i 

7400 PRINT3368,"SENS ? •; 

7410 W=PEEK( 14400) : IF 

7420 IFW=64THEN764B 

7430 IFPCJ-1 )=1THEN7B00ELSEJP=J:PRI[ 

E" ;:6OSUB8050:GOSUB94B0:GOTO790B 

7440 IFPIJ-1 )"3THEN7B00ELSEJP=J:PRINT3373,' 

E " ; : GOSUBB250 : GOSUB94B0 : GOTO790B 

7650 I=W-43; lFI+7=JPTHEN7B00ELSEPRINTa313, ' 



■EC 1 1 J. 2) :E.< I,J + 1 



4240,4270,4240 



W032ANDW064)THEN761< 



;CHR 



. ) THEN 74 70 

I BAS 



7460 PRINT336B,"SENS ? ■ ; 

7670 U=PEEK< 14400) t IFW=0OR<WOBANDW<> 

7680 1FW=8THEN7700 

7690 IFP(I+-6)=3THEN7B00ELS£JP=H-7:PRINTa373. 

' i =GOSUBB450:GOSUB93B0:GOTO7900 

7700 IFPtl+6)=lTHEN780BELSEJP=I*7:PRINTS373, ■: HAU 

T"; :GO5UBB65B:GOSUB930B:GOTO79B0 

780B FORW=i T 03:PRINT3496, STRING* (IB, 32) i=GOSUB1100 

0JPRINT3496," IMPOSSIBLE" i :GOSUBl 1000:NEXTW: PRINT35 

63, 'RECOMMENCEZ ! ■ ! sFORW^ito*: GOSUBl 1000: NEXTW 

7S10 PRINT33B4,RLi336B,RL;3496,P.L;3563,RL;:G0TO755 

B 

7900 PRI NT3304 , RL 1 3368 , RL ; : RETURN 

B000 REM •**»******»••« »•••***«*•*• 

8010 REM HORIZONTALE A GAUCHE 

B02B REM "••»*..■«■...........,..» 

8050 Y=J~1 

8040 !FP(Y)=2THENW=lELSEW-2 

8070 FORI=WTOW+B=Ef 1-1, J, 1 )=E( I , J, I ) :E ( 1-1 , J, 0)=E( 

I-l.J, 1)+E(I-1,J,2> :NEXT 

B0B0 U=6+128*Y 

8090 F0RI=2T0B 

8110 ONE ( I , J , B ) + 1 GOSUB4250, 4260, 4270, 4260 

8120 NEXT 

B130 P(Y)=PIY)-1 

B14B IFP(Y) = lTHENR=*G"ELSER="ri" 

B15B PRINT33+12S#Y,R| 

8160 RETURN 

B20B REM ••■**•**»*•■«*•*«**•***•• 

8210 REM HORIZONTALE A DROITE 

8220 REM ......................... 

8250 Y=J-1 

8260 IFP(Y)=ITHENW=BEL5EW=9 

8270 FORI=WTOW-BSTEP-l:E(I+l,J, 

,0>=E<H-1, J,1)*E( 1 + 1, J, 2) :NEXT 

B28B W=6+12B«Y 

B29B F0RI=8T02STEP-1 

8300 PO=U+6*<I-2) 

B31B ONE! I, J, 0)+I6OSUB4250, 4268,4270,4260 

B32B NEXT 

B33B P<Y>=P<Y).+1 

B34B IFPCY>=-2THENR-*M"ELSER=-D" 

B35B PRINT33+12B»Y,R( 



8360 RETURN 

8400 REM *»#••••»»»*»#**•**»«#•■ 

8410 REM VERTICALS EN BAS 

8420 REM **«***»»*»*»«»»#»*»*** 

S450 X=I-1 

8460 IFP(X*7>=1THENW=BELSEW=9 

8470 FORJ=WTOW-BSTEP-l=E( I, J+l,: 

,0)=E( I, J+l, D+ECI, J+1,2) SNEXT 

84B0 W=6« '. 

8490 F0RJi9T025TEP-l 

8500 P0=W+12B*(J-1) 

S51B ONE(I,J,fl 

8520 NEXT 

B53B P(X+7)=P(X+7)+l 

B54B IFP(X+7)=2THENR=-M-ELSER= , 'B- 

B55B PRINT371+6«(X-l),Ri 

B360 RETURN 

B60B REM *»«*•*#«*.»###*######».*. 

B61B REM VERTICALE EN HAUT 

B65B X== I -1 

B66B IFP(X*7)=2THENW=1EL5EW=2 

B67B F0RJ=WT0U*8iE<I, J-1,2>=E( I, J, 2) :E<I, J- 

I , J-1,1>+E<I, J-1,2) =NEXT 

8680 W=6*X 

0690 FORJ=2T0B 

8700 PQ=W+I28*<J-1 ) 

8710 ONE<I, J, 01+IGOSUB4250, 4260, 4270,4240 

B720 NEXT 

873B P<X+7>=>P<X+7)-l 

8740 IFP(X+7)=2THENR=-M"ELBER=-H" 

8750 PRINT371*6»(X-1),R; 

8760 RETURN 

9000 REM «*•••< 

9010 REM ELIMINATION 

9020 REM wt ii im wm 

9100 REM 

9110 REM D'UN JOUEUR 

9120 REM 



9170 GOSUBl] 

918B PRINT34B9,RL;3690+64*; 

919B GOSUB1100B 

920B NEXTY 

921B PRINT3690+64*X,NJ(X) ; 

9220 RETURN 

93BB HEM 



E(I, J, 1) :E(I+1. 



9330 FORJ-2TO8iGOSUB9340=NEXTJ 

9340 RETURN 

94B0 REM 

9410 REM SUR REGLETTE HORIZONTALE 

9420 REM 

9450 FORIb2TOB!GOSUB9560:NEXTI 

9460 RETURN 

9500 REM 

9510 REM PION SUR TROU 

9520 REM 

9560 IFEII, J,0)>0ORE(I. J,3)=0THEN967B 

9570 X=E( I,J,3>iR=GS(X>:P0=135+12B»(J-2>+6( 

9580 F0RU=lTO5 

9590 PRINTSPO.Ri :GOSUB1100B 

960B PRINT3P0,CHR<( 126)1 = GOSUBl 1000 

9610 NEXTW 

9620 E( I, J,3)=B 

9630 PRINT3P0,CHR»<46>; 

9640 PJ(X)=iPJfX>-l 

9650 PRINT3699+64»X,PJ<X) 1 

9640 IFPJ<X)=0THENGO5UB9150 

9670 RETURN 

10000 FORT=1TO1000:NEXTT:RETURN 



rrxm^W^ 




1 FOfiT°lTOS0:NEXTT 

200B0 REM »*»«»».»«»•>»•••••*•>•»*»». 

20010 REM REGLE5 DU JEU 

20B2B REM »*»*»#**#»•»*»«••»***»*•# 

20B50 CLS :PRINT"*** LE TERRAIN DE JEU 

20B60 PRINT36B,"- 14 reglettes (7 hariro 

;3196,'- Les reglette 



5 3320, ' 



20070 PRINT3262, "pleines i 
RESENTATION DES REGLETTES 

Verticals" ;345B, "Partie pleine* ;347S, Gl ;349. 
2B0B0 PRINT3586, "Partie vi de" ;3607, ■ . ■ J3620, " . " [I 
14, "Les reglettes horizontales etant situees au i 
ssus des" ;3778, "reglettes vertlcales, sous une it 
ersection " iGl ;* il* ;SB42, "peut y avoir : soit 
a partie pleine d'une reglette" 

2B090 PRINT3904, "verticale "1G2;" soit un trou 
201B0 GOSUB25B00 

20105 CLS:PRINT"»»* DEBUT DU JEU **«■ 
20113 PRINT34B,*- Les 2 a 4 joueurs placent a toi 
de role leurs 5 reperes" '3134, " 3ur les intcrsec 
■i. ' "3192, "**>* BUT DU JEU ***" 



G2 



263, ' 



Etr. 



OMMENT JOUER ** 
cuper 3 position 
20135 PR1NTS5B2, 



2B145 PRINT3774, "essauer 



les" i3390, " reperes adverses i 
dans les TRAPPES. " i 3448, ■ *** 
;a314,"- Chaque reglette peut 



;3646, "i 
deplacer 



ote 



2B155 GOSUB250B0 

20165 CLS:PR1NT"*** REMARQUES ***" 

2B175 PRINT368,"- II est interdit de deplacer la r 

*i3260,"* IDENTIFICATION DES REGLETTES *" ;333fl, "Ho 
rizontales : Lignes nun>eratees de 1 a 7";3394,"Ve 
rticales = Colonnes reperees de A a G" 
201B5 PRINT3516,"* SENS DU DEPLACEMENT *"53386,*Po 



to 



cla 



" ;3650, "sui 

20195 PRINT3714, "Reglettes harizontales : vers la 

DROITE ou la GAUCHE. * ;3778, " Fteglet tes verticales 

1 vers le B^s qu ie haut.- 

2B205 GOSUB25000 

20215 CLS:PRINTCHR*(23> JPRINT3512, "BONNE CHANCE... 

. . * :G05UB1 1000: GOSUBl 1000: RETURN 

25B0B PRINT39B8, "Tapez sur < ENTER > pour la suite 

* ;:GOSUB11000 

25B1B PRINT31B00," " i --G05UB1 10B0 

25B2B IFPEEKI 144B0) O1THEN2300BELSERETURN 

30BBB DATA I, 

30B1B DATA B, 

3002B DATA 0,1 

3BB30 DATA 0, 

3BB4B DATA 1,' 

30050 DATA l,i 

30060 DATA B, 

30B7B DATA 0,< 

3BBBB DATA 1 , 

31B00 DATA 2,0, 

31B1B DATA 2,1 

31B2B DATA 2,2, 

31B3B DATA 2,B, 

31B4B DATA 2,0. 

31050 DATA 

31060 DATA 2,0. 



),B,B 

,0,0.0 
), 0,0,0 



!,B,2,0,2 
1,2,0,2,2 
1,2,0,2,2 

:, 0,0, 0,2 



ORIC1/ATMOS 

^\S Suite de la page 4 



1119 GETZS 

1120 IFZ*="U"THEN1140 
1130 GOTO1110 
1140 PL0T2,21," 

1158 PL0T2-21/"H*iint«iFiai*it in 
ous pouvoti* conunencei", " 
1169 WPIITS09 
1179 GOSUB5010 

1189 GOSUB5310 

1190 CC=0:PLOT2,21," 
HOMBRE DE COUPS: 

1200 PLOT15,23,10-PLOT15,24 

,10 

1210 PLQT16,23,ZZ*:PL0T16,2 

4.ZZ* 

12:30 REN EHFIH !,LE JEU 

1250 GETBS ■ fl=HSC'.: B* > 

1260 lFn=12?THEH16S0 

127Ct IKH^:.:iOF:fl '1 1 THEM12 L "0 

1230 IFHOSTHeNiaWe 

1 290 X*=RIGHT*^ XS, 1 >+LEFT*( 

^*-19> 

1300 2S=LEFT*C Yt,4)+RlGHT*f 

X*, 1> 



1310 VS=2*+HID*<Y*..6,14>+H1 

D*CXS..5,1> 

1320 GO3UP501O 

1330 G0T01510 

1340 IFRO10THEH14OO 

1350 MS=RIGHT$<MS.19J+LEFTS 

<x*,n 

1 360 Z*=LEFT*-; YS , 4 HR I GHT« 
X*. 1 > 

1370 YS=Z5+MIP4( YS.6, 14HMI 
i D?p<XS,5,1> 
1380 G0SUB515O 
1390 G0T01513 
1400 I FRO 11 THEN 1460 
1410 V*sRIGHT*<Y*,i:>+LEFT*C 
Y*.19> 

1420 Z*=LEFT*<XS,4:)+RIGHr*C 
YS,1> 

1430 X*=Z*+MIM(X*,6. 14HI1I 
[)SfY*,5,l> 
1440 GOSUB5310 
1450 G0T01510 
1460 IFRO9THEM1250 
1470 Y$=P1GHTS( Y¥. 19>+LEFT* 



. 1 > 

14B0 Zt=LEFT*<X*,4)+RIGHT*< 
ft, I ) 

1 490 X*=>Z*+M I OW, Y,% , 6 .■ 1 4 >+M 1 
D*(Y*.5,U 
1500 GOSUB5450 
1510 ZZS="i.iiJCH.V' 



1520 

1530 
1540 
1530 
1560 

157Q 
1580 
450 

155'0 
1600 

1610 

LK^0 

1630 

1640 
1658 

1660 

1680 
TION 

1700 



1730 
17-10 
1750 
1760 
1770 
1700 



CC=CC+1'PIMG 
MN1ID«<8TR»<CC)j2) 

CC*=ZZ*+E>S 

CC«=RIGHT*'.:CCS,4> 

PLOT 16, 23.. CC$ 

PL0T16,24,CCt 

I FX*«K 1 *RNDY*=Y 1 »THEH2 

IFX»OX1*THEN1620 
PL0T4,26,"Le Prenier 9 
,x est exact. " 
GOTO 1250 

IFY*OY1*THEN1650 
PL0T4,26,"Le second an 
: est exact. " 
GOTO 1250 
PL0T4.-26," 

GOTO 1250 

REM ABANDON ET SOLU 



fl*=" 

PLOTS, 21, R* 

PL0T0,22,fl* 

PL0T0-23,R¥ 

PLOT0,24,RS 

PLOT0,25,R* 

PL0T0,26,R* 

OC'=0 

PL0T2,21,"Vr J 



nez au bout de "+CCS+" eouP 

\?SZ PL0T2*23/"fl Parfcir de 
la ou wous avez debutei" 

1800 PL0T2,25,"Je trouwe au. 
bout de 000O coups. " 
1810 DD*="0000" 
1828 X*"X2*iY*"Y2* 
1830 G03UB5010 
1840 G0SIJB5310 
1850 FORI*100TO1STEP-1 
I860 S1=P3<1)=S2=P3<I-1> 
1S70 IFSl=lflH0S2=2THEN217u 
1880 IFS1=2RNDS2=1THEN2170 
1390 IFSl=3fiNDS2=4THEN2170 
1980 lFSi=4RNt>S2=3THEN2170 
1910 0NS1G0T01920, 197ft . .'■;■:>' 
,2070 
1920 X*=RIGHT*<X*,19J+LEFT* 

cx*,n 

1930 Z*=LEFT*<Y*,4>+RIGHT*<; 

X*,l) 

1940 Y*=ZS+I1IDKYI,6,14 >+MI 

pSfX$,5,l> 

1950 GOSIIR5150 

I960 GOTO2120 

1970 X¥=RIGHT*<XS. 1 l+LEFTSC 

MAS') 

1980 Zt=LEFT*<Y*,4>+RIGHT»C 



is -abandon 1990 Y*=ZS+MlDSf.YS,6, 14?+MI 



D*<X*.5,t) 

2000 GOSUH'.mK' 

201O G0T02120 

2O20 Y*«RIGHT«Y»,1)+LEFT*< 

YS,19> 

2030 ZS=LEFT*(XS,4>+RIGHT*< 

Y$,l> 

2040 X*=ZS+N!C'S- Xt,6. 14>+M1 

f>$(Y*,5, 1 > 

2050 G0SUB5310 

2060 GOTO2120 

2070 YS=RIGHT$<.Y*,19>+LEFT$ 

CY*,1) 

2080 ZS=LEFT*(Xt,4HRIGHT*< 

YS,1> 

2O90 XS=Z¥+M I DSC X? , 6 , 1 4 >+M I 

D¥<YS,5.1> 

2100 GOSUB5450 

2120 DD=DD+1 

2130 DD*="0000"+niD*':5TR*CD 

P>,2) 

2140 0D*=RIGHT*<D0*,4 - 

?l=iO PL0T23.25.DD* 

2160 G0T0213S 

2170 1=1-1 

2180 NEXT I 

2190 PLOT27,25,8 

2209 PL0T22.25-12 

2210 ZRP NHIT300 



LOCH NESS 



Si vous vous sentez Tame d'un monstre, tapez ce pro- 
gramme et transformez vous en une sale bete qui cro- 
que les pauvres petits bateaux. 



Didier CAILLE — ^± 




LOCH HESS 

DIDIER GRILLE 

49 RUE DE LR C1VISI0 

LECLERC 

94256 6ENT11LY 



510 IF YPRS"-1 THEH CORPf-CHR«( 147 
520 IF YPfiS-1 THEH CORP«=CHR*( 159 



530 GOTO 780 



130 MODE 1 
140 GOSUB I960 
150 GOSUB 1570 

tee ' 

170 ' SHIS1E CLAVIER 

180 ' 

190 SXPAS-XPAS 

280 SYPAS"YPHS 

210 RE-IHKEYB 

220 IF RS-"" GOTO 396 

230 ' 

240 ' CflLCUL DU PRS OE Lfl. TET 

E 
250 ' 



□H RLLRIT VERS LE BRS 

I IF YPflS' 
..J IF YPBS' 
) 
510 IF XPRS-1 THEH CORP«"CHR»< 147 

S20 IF XPAS—1 THEH CORP«=CHR»< 153 

630 GOTO ?9B 

640 ' 

630 ' OH P.LLAIT VERS LE HRU 

T 

660 ' 

678 IF YPRS=-1 THEH CORP«=CHR« 149 

680 IF YPBS* 1 GOTO 11 IB 

690 IF XPAS-1 THEN CORPB-CHR« 150 

700 IF XPRS— 1 THEN C0RP»-CHR«U56 

710 ' 

720 ' EST-IL MORT DE FAIM 



950 FIN-FIN+1 

960 XQUEUE-Otf(FIN) 

970 YQUEUE-CY«FIH> 

980 LOCATE XQUEUE.YQUEUE 

990 PRINT CHRBC32) 

1000 ECRRN<XQUEUE,YQUEUE)"0 

1010 GOTO 190 

1020 ' 

1830 ' LE MONSTRE R HEURTE QUE 



1 GOTO 1160 

) LOCATE 11,1 

) PRINT " VOUS ETES I10RT DE FRI 

) GOTO 1160 

) LOCATE 11,1 

I PRINT "C A N H I B fl L E !" 

J ' 

) ' FIN DU JEU 

) ' 

J IF SCOREJRECORD THEH RECORD'S 



1190 G 
1200 ' 
1210 ' 



PLACEMENT DES BATEfi 



290 YPftS— <R«-CHRI(50)WR«-CHR«(5 730 ' 

3>) 

300 IF SXPAS— 1 THEN 510 

310 IF SXPAS-1 THEN 430 

320 IF SYPA8— 1 THEN 670 

330 IF SYPRS"! THEN 590 



350 ' CRLCUL DU CHRACTERE DU 

CORPS 

360 ' 

378 IF CSYPRS-0 AND 3XPAS-8 AND YP 

AS-8 AHD XPR6"0> THEN GOTO 210 

380 IF XPAS09 THEN CORP*-CHRt< 154 

) ELSE C0RP*-CHRB<149> 

390 GOTO 790 



DEPLACEMENT DU MOHST 



OH RLLRIT VERS LA DROI 



400 : 

410 ' 

TE 

420 ' 

430 IF YPAS— 1 THEH C0HP8-CHRBC 153 

440 IF YPRS-1 T.HEN CORP»-CHR« 136 

450 IF XPR3-1 THEN CORP»-CHR»< 154 



ON ALLHIT VERS Lfl CRUC 



RE 
770 ' 

780 PEN 3 

790 LOCATE XTETE.YTETE 

088 PRINT CORPt 

BIB XTETE-XTETE+XPAS 

820 YTETE-YTETE+YPR8 

830 IF XTETE>40 OR XTETEC1 GOTO 10 

50 

840 IF YTETE>24 OR YTETE<1 GOTO IB 

30 

850 IF DEBUT-FIN>DIFF GOTO 1390 

B6B IF ECRRN(XTETE.YTETE>2 THEH W 

RL-RL+INT(SORCCDEBUT-FIN)/HL>) i H 

L-NL+WRL ' SEC ONDE" TIME '308 • SCOR 

E=INT(8C0RE+UflL-AL>' GOSUB 1230 

870 IF ECRRN<XTETE,YTETE>=3 THEH G 

OTO 1110 

860 LOCATE XTETE.YTETE 

890 PRINT CHR0C224) 

909 ECRRN<XTETE.YTETE)-3 

910 DEBUT-DEBUT+1 
920 CXW DEBUT >-X TET E 
§38 CyXCDEIUTJ"¥TETE 

940 IF HL>8 THEH HL"HL-1 ■ GOTO 10 



THEN 
1260 

I2?e 



3 XRRTERU=PND*39+1 
3 YBATEAU=RND*23+1 
" - ECRRN(XSRTERU,YBRTERU>09 



1498 NEXT J 
159B NEXT I 
1510 G0SU6 1640 
1528 60RDER 9 

1539 GOTO 190 

1540 ' 

1558 ' IHITIRLISRTIOHS 

1560 ' 

1570 BORDER 9 

1560 DIM CX=-.(4B88) 

1590 DIM CYW4B00) 

1690 DIM ECRAN<49,25> 

1610 SYMBOL 255-48. 121.59,52,56, 25 

4,124,46 

1620 HL"5 

1630 DIFF-600 

1649 FIH=0 

1650 DE8UT=1 

1660 SECQHDE-THIE'300 

1670 SCORE«INTi:SCORE«< DEBUT -FIN V 

AD) 

1680 NL-5 

1698 XflATEAU-28 

1708 YBATEAU-13 

1710 XQUEUE-20 

1720 YQUEUE-13 

1730 <Z)>y.<: 15=20 

1740 CY«1)"13 

1750 ECRAN< 1,1 }-B 

1760 XTETE-2B 

1770 XPRS-0 

17B0 SXPAS=0 

1790 YTETE=13 

1890 YPftS=0 

1B10 SYPBS=0 



i INK E 



PEN 2 

LOCRTE XBRTERU.YBRTEHU 

PRINT CHR«255) 

ECRAN( XBHTERU , YflflTERU )-2 

LOCATE 7,23 

PEN 1 

PRINT " SCORE >"+STR*C SCOPE 



1330 RETURN 



1370 ' PASSAGE AUX TABLERUX SUI 

VRNTS 

1380 ' 

1390 LOCATE 14,12 

1400 PEN 3 

1410 PRINT "TRBLERU SUIVANT" 

1420 BORDER 9,3 

1430 HL=RL+3 

1440 DIFFnDIFF+180 

1450 IF DIFF>900 THEN DIFFo600 

1469 FOR 1-1 TO 40 

1470 FOR j"l TO 25 
1489 ECRHNt I.J>"9 



1830 INK 1,9 
1840 INK 2,14 
1839 INK 3,24 
I860 CL5 
1670 PEN 3 

188B LOCRTE XTETE.YTETE 
1898 PRINT CHRt(224> 
1900 LOCATE 1,25 
1910 PEN 1 
1920 PRINT STRIHGt(40,CHR«(203r 
STRK RECORD 1930 GOSUB 1230 
1940 RETURH 
1958 ' 

I960 ' REGLES 
1978 ' 



2990 IF R-="H" GOTO 2358 
210B CLS 

2118 AI-"Didier CAILLE" ' GOSUB 23 
60 

2128 PRIHT i PEH 2 
2130 Represent*"' G0SU8 236B 
2140 PRINT:PRINT. PEN 1 
2130 fl«»"LE MOHSTRE DU LOCH NE5S" 
i GOSUB 2360 
2160 PRINT'PRINT' PEN 2 
2170 FW»"Veua stes le monstre. a v 
ous de manner" ' GOSUB 2368^ PRIHT 
2188 AS»"ls Plus d» b*te*uv Possib 
l€." I GOSUB 2368< PRINT 
2190 PRINT'PEN 3' R»«"Pour cola, u 
tiliiez l»s chiffru du" i GOSUB 2 
360 ' PRIHT 

2200 fl9""mini-cUvi»r." ■■ GOSUB 23 
68 ' PRIHT i PRIHT 

2218 PEH 2 ' A«""l — > GAUCHE" 'GO 
SUB 2360 ' PRINT 

2228 PEH 1 ■ R8--2 — > BRS " 'GO 
SUB 2360 ' PRINT 

2230 PEH 3 ■ fli-"3 — > DROITE" 'GO 
SUB 2368 i PRINT 

2240 PEH 1 I H«""5 — >"HRUT ■ tGO 
SUB 236B 

2230 CRLL 1BB06 ' ATTENTE CLAVIER 
2260 PRINT'PRINT'PRIHT'PRINT'PEN 3 
• HJ="Ce lui Peut vous arrive! de 

Plre i" I GOSUB 2360 I PRINT 
2270 R«-"Heurt«r 1'un d« luatre b 
ords" ■ GOSUB 236B ■ PRIHT 
2280 H»-"Vaus marchtz d«s»ua" ■ GOS 
UB 2360 I PRINT 
2290 n«""l1ourir de fairn si vous tr 

;inez troP" ' GOSUB 2360 ■ PRINT i 



PR] HI 



PRIN- 



5 CLS 

1930 BORDER 

2000 INK 0,0 

2018 INK 1,21 

2820 INK 2,20 

2030 INK 3.6 

2040 PEH 1 

2030 At-"Voul9z-vw.s les regies 

•H> ?" 

2060 LOCRTE IHT(< 40-LEN<HJ )>/2>, 

2078 GOSUB 2380' " 

2080 WHILE RM"" i R*"INKEYB > I 



23Q0 PEN 2 i A*-"Ce Out Peut vous 
arrlver de mleux i" i GOSUB 2360 i 
PRINT 
2310 R»-"M*naer- tons les bateaux d 
li Premier". G0SU9 2360 ' PRINT 
232B R»»' , tablBau 1 et Passer aux su 
lvants. " i GOSUB 2360 ■ PRIHT i PRI 

NT i PRINT i PRINT PRINT 

2330 PEH 3 I R«""B H H E C H R 

N C E" i GOSUB 2360 
2340 CRLL B.B606 
2350 RETURH 
2360 PRIHT 

2370 LOCRTE IHT< ( 49-LEH' A* > >'Z ; ■■ S.% 
2380 FOR I"I TO LEH(fl«) 
2390 PRIHT HID«t(W,I,l)l 
2480 IF nlDI(A»,I,l ><>'■ " THEH SOU 
NC> l.,';a'!-'i.r-B.e,l :FOR T=l TO 100 

i NEXT 
24 IB NEXT 

2420 PRINT _ 

2430 RETURH • 



RABBISHT 

II s'agit d'aider un lapin employe au service de net- 
toyage du terrier (SDNT) a faire son boulot. En effet il 
doit ramasser les ordures que des punaises mal inten- 
tionnees ont deposees sur leur passage. 

Christopher POVSE 



SPECTRUM 



s le programme 



1 REM CONSEIL F 

3 REM L«S UOGS 




S67B: 00 TO 3010 
a 8 il beep .B3.n-.ia 
a«3B ir iNKBYi«"a" rnd attpi i 



[3RRPH1 , 
i REM 



i cp .6i,ntj-ia 



RtTR (Cl,dl)«7 THEN PRI 

; "K"; INK sjAT ei,di;"N 

40 TO -IB STEP -IS: BEE 
PRINT AT Cl.dl; " 



' «!■!•?:! 



2060 



."31 !i+(INT iRNDtfi) ) 



31) -(I^^REYJ■ r 9■' AND «>0) 

aaoB ^ p ~ Br ' R IXl+li«l>"6 THEN GO 

SUB 200 



■uiiqut,-;RT li,*; 

(>'■; INK 5;" pour les bryiUflt*." 

7781 PRINT RT IB.aii "C >»"; INK 

b;rt ae,ai;"D B 8" 

77S* ir tNKEYI-"»" OR INKeY«-"M" 
THEN LET \mi; on rn -»5^a 

7738 IP INKEYl" 
THEN L"* " - 

773B IF 



6003 FOR i.-a* TO 4.B STEP IS: BE 



4010 TOR j»l TO 31: PRINT ST X,U 
IMCillWr K + l,u;bi(i): BEEB .006 
,j: BEEP .006,3+19: BEEP .aBB,J+ 

a095"pRINT RT X l.uli it I i ) ; RT Xlt 4520 N rOR j-x TO STBP -1: PRINT 
1 ii 1 ' b Ii t); '■ET x.xl: LET u.gi .RT j,u;' i »";fiT jtl,y;"B": BEEP . 
aeSe let pub: let uie-u»e-ia 03,*.8-jta: beep .B2,B0-J»a : beep 

: ir tiltcleee THEN LET pL«1B; P .4a,69-J»a: PRINT AT J,u.'"#";RT 
"— ** BlJflT 1,18; PRPEft 1; INK a; j+l. Ui "8" i NEXT_i . /_ _ __ 



S11B DATA 0,15,18,9, 18,21,89,0 
8iaa DATA 3,27,6,10.6,23,6,7,18, 

la.ia.a^.ie.^.iB.aB.ie.a.Ift.ai.e 

9^?J gRTRl*,8,aa,6,E, 9,6,30,8,1 

s t 7 i 18,86,99,0 

°?g i „ D ?I >, ,3 ,6,9, 6, 9, 17,9,33.9,86 
,18,8,13,7, 16,84,99,0 
aaoa DATA 3,30,3,88,9, 11, IB, 1,99 



8010 OVER 0: INK 7: PAPER 0: CLS i 
8811 PRINT AT 0,8;" RABBI! 

8TA0E "il 
8018 PRINT BT 0.0; INK 3; OUER 1 i 
INK 6 : 













t 


crt 




Chrit tophi 


r 








';i 





























8097 IF ti«C<100 THEN LET pi 
PRINT B1;RT 1,19; PAPER 1; 



• 30; 4400 



'./ i. 



a098 PRINT BO;AT l,pi; INK 8; PA 
PER l;tint: IF li»«<»300 THEN 8E 
..,,- - ... ..-T.a THEN ■ — ■ 
w 

OR INKEY^ 



¥K 



K 1965 K 

PAPER 0: BOROER 

i«n /: uvcn 0: CLS 

11 PRINT FLASH l; INK 6; PAPER 
l;RT ll,10;"INITIflLISATION" 

18 LET •|."C»": LET b|«"Oe": L 
T s-B: LET h-0: LET 1.0 

IB GO TO 8800 
800 IF RTTR !xl,yll<>6 THEN PRI 
T INK B;RT xl + l.yl; "L n ! GO SUB 
00: LET «-e+l: IP t>0 THEN FOR 

28 TQ 18 STEP 8: BEEP ,01, j: N 



ft 1 ;.. , 

810 IF 
HEN LET 



D yl>31 RND t>9 T 

LET ■ -i-100; LET 
.1BB0B RND Sr»0 T 
' — gr-1: GO TO B 



HeN LETT H + l: LET 
70S 

ail IF Xl-l RND ul>31 RND 1-9 T 
HEN GO TO 6000 

399 RETURN 

390 LET i«f+4B PRINT B9i OVER 
0;flT 0,1B-LEN STR| *1 INK 6; PRP 
ER 1;* If »>-ieO00 AND ar-0 THE 
N LET l»C*li GO TO 8708 

301 RETURN 



S10B -. .. 

THEN IF RTTR ix+l 
INT INK 7;RT xtl.y, .. , _ . 

HEN FOR j.48 TO 80 STEP -8: BEEP 

isSg'LET^Kri^sv.is.g? 82 

2S3B LET il-i+Omix+ll >» AND RT 

(j-a'bf'iiir RND flTTR 

2=*0^Ir%TTR 111*1, bl -7 THEN LET 

■f°R J»*-iS lo T *B S+EP IS^BEEP 
i2iA n+ x -lfl: PRINT AT 11, Si; 'KTi 
BEEP .ei,n+j: MEXT J: GO SUB 300 

2350 PRINT AT *,b;"K";AT ll.bli" 
2860 LET »-»l LET b > ; •■ 
2261 GO TO 2361 
3380 LET dl.d+nj.d) -luidl 
3330 LET cl.c+3i(t(xtl» ) t I 
■ ' -" -*) -llx*ll <c AND 



4399 SO TO 8808 

44.00 PRINT OVER 0; PRPER 8; 

J, ) AT fliS; J GAME OUER 

."f, !,. 1 ®^!'.'.. RRES5ER SPACE 

4410 PRINT t 



BBisFOf^TBa to ae'sTfp s- pr 

THEN 00 T INK 5;AT t,0;" 

-"IS RESTORE OBBP-'"^- 1 
17 PRINT INK 6 



it: 



4*80 IF INKEYX 
450 

4462 CLS : GO T' 
6000 FOR I.USR 
8001 READ J: »™ 
SB08 GO SUB 



«T 0,28; PRPER 1; 
;<>" " THEN GO TO 
TO 7788 

1" TO VSR "fi"t 
■ NEX - ' 



AB08 GO SUB 8068 

BB0B DRTA 113,184,189,81,03.117, 

184,66,8,82,93,187,21,114,119,7, 

14,89,344, 186,186,174,63,28, 16.1 

t 4, 186, lis, 168, 46, 338, 384 
BIB DATA 830.830,839,0,254,364, 
854,0,130,66, 138,66, 138,66, iao, 6 
6 , 266 , 365 , 86B , £58 , 340 , 340 ,224,23 

6818 DATR 858,331,858,0,0,0,0,0, 
258,356,866,83,15,18,7,7,355,855 

,183,281, 187,17a, 84,0 
6030 DATR 60,186,319,286,106,106 

, 186,80 

6086 DATR 0,108,40,30,186,44,88, 

6086 DRTA 60,136,365,358,388,868 
,355 , 160 , , 8 , 10S , 36 , 66 , 36 , 66 , 68 
7700 LET 1-1: IF llh THEN LET h. 



1«,»0,1*,10,B, 10, H3, 10, 85, 

8301 DATA 6,2,6.8,6,20.13.16,13, 

21,15,19,15,88,09,0 

8308 DRTA 9,38,13,1,18,6,15,6,99 

8303 DATA 3,8,3,88,3,87,18,0,18, 
11,09,0 

. B ijPj«fSNS-s-if-:;; l; ■■„.,„ m.mhX^'Mk^U'^ii'' 1 
h l. s t» ».», „ ,„ T „ SN 00 T !ajiSWi|:J-l|;jt:h;I}|'"'" 

4.406 DATA 3,58,9,5,9,13,18,4,18, 

,18.37,90,0,3,31,3,28,6,85,9,11, 
9 , 2 i , 12 , , 16 , 7 , IS , 23 , ifl , 26 , 99 , B 
64B8 DATR 2,38,5,9,8,31,8,4,11,1 
3,11,17, 14,36,17,1,17,38 
8500 DATA 3,6,3,6,6,1,6,18,8,19, 

i|.8i99,8,3,aa,3,a6.6,4,ia,0,ia, 

B581 DATA 3,8, 3,1*, 9 86,13,16,99 
A 8j,a,13, 15,4, IB 11,18 S 3, 18,37,0 
0,4,3,8,3,33,8,8,9,3,9,12,18,18, 
15,20,lB,aa,iQ,87,99 8 

8503 Data a, 6,8,2a, ii,a, 11, 16, 14 

,4 .14 ,27 , 17,0 , 17 , 14 , 17,31 

8580 LET C.6»13+(INT 1RND»6)))-1 

: LET d-3l: LET X.10: LET y«8: L 

ET KlaSi LET yl.y: LET a.3? LET 

b-INT IAND.33) 

6518 PRINT fla; PAPER 1;AT 0,0;" 



8058 

? e SS-52J^ IT INK 51 PhPER 6 

t«£5 e £ cc : 00 TO B020 
, gegg^ERD X.y: fr X-99 THEN GO T 

0060 PRINT INK 3; PAPER a;AT X,y 
* i™E5 E E eE ; 00 TO 8880 

0058 READ X,y: IF X--00 THEN GO T 

' 8084 PRINT INK 4; PAPER 1; RT x,y 
, JUJJJJ": GO TO 6068 
0B7B READ X,V; IF XaOO THEN GO T 

BB71 PRI^4T INK B;AT x,y; ■■OHHHI": 

GO TO 8870 
B078 READ x,y: IF x -99 THEN 00 T 
Q 8076 

8073 PRINT im 4; AT x,y;'T";AT x 
+ l.y;'-F";AT X*3,y;"F": GO TO B07 



i5 S^" 



c:.-3 



I LET 7710 LET I 



8876) FOR ial TO 9 

INT INK 6; AT x ,y; "l 

6000 LET t-0 

6898 PRINT RT 81,0; INK 2; PAPER , 

Biae 5atr a, a, 5, i*, 5,36,6,1,9, a, 

9 , 12 , ,88 , 15 , a , 18,6, IB , IS, 99 ,8 
6105 DATR 6, ae, 6,86,13,8, 12, 6, 13 
,9,12,20,12,86, 18,24,15,86,16, B, 
16 , 6 , Is , 18, 16 , 18 , IB, 86 , 99 , 
Slie ORTR 3,80,3,38,6,7,18,0,99, 



COMPACT 



Vous voulez gagner de la place pour voire pro- 
gramme ? Rien de plus simple, utilisez Compact, qui 
(NDTA: d'ou le nom) compacte les lignes, les rems, et 
vous sort un programme tout rabougri, mais qui mar- 
che plus vite et prend moins d'espace memoire. 
Chouette, non ? 

M.KOCH 
Mode d'emploi: 

Elites RUN COMPACT, et repondez non a la question posee. 
le programme vous donnera les instructions a effectuer. 



LCMEM: 


B • 40 


DIM Fi 


300> 


AP = 4 


* to 96 


GS = 17 


4:GT = 


= 180 


:RM = 



> Id 



'A 1870 GOSUB 500 

1900 NEXT J 
1950 OA = NA: NEXT 1 

7B 




400 HUME : POKE 34,07 

410 HTAB 10: VTA8 1; PRINT ■*«* 

PROGRAMME COMPACT***' 
420 HTAB 1: VTA8 06: PRINT 'LE 

PROGRAME A COMPACTER A-T-IL 

ETE" 
425 HTAB 1: VTAB 09: INPUT *CHA 

R6E EN *4096 ? (0/N) ?• ;1% 
430 IF (2*) = -0" THEN HONE : POKE 

34,22: GOTO 440 
440 HOME : HTAB 1: VTAB 08: INVERSE 

: PRINT "FAITES IE :"j! NORMAL 

445 POKE 103,1: POKE U3B4.0 
450 HTAB 1: VTAB 10: PRINT "LOA 
D FICHIER": HTAB 1: VTA8 11; 
PRINT "POKE 104, B" : HTAB 1: 
VTAB 12: PRINT -RUN COMPACT 
.': POKE 104,44: END 
455 END 

460 GOSUB 300C :NT - ] 
490 GOTO 1000 

500 HTAB I: VTAB 10: PRINT "LIG 
NE "jNLj" ";A*;LNj: HTAB 3D: 
PRINT ■: ";I 
510 RETURN 
000 OA = AP t 1 
100 FOR I = TO 45535 
120 NA = PEEK (OA * 1> * 254 t 

PEEK (OA) 
130 NL = PEEK (OA * 3) * 254 + 

PEEK (OA t 2) 
140 IF PEEK (NA + ! I = ij AND 
PEEK (NA • I) = GOTO 1990 



140 FDR 4 



\ TO NA - 



210 FOR N = 4 TO 45535 

230 IF PEEK (J * N> ( 48 OR PEEK 

(J * N) ) 57 GOTO 1270 
240 LN = 10 » LN * ' PEEK (J * N 

) - 48 
250 NEXT N 

270 P<NRO = Ui-.Hr/. = UFA » 1 
275 GOSUB 500 
280 IF PEEK (J ♦ N) = 44 THEN 

LN = 0: NEXT N 
290 J = J ♦ N 
295 GOTO 1900 
300 GOTO 1400 
400 GOTO 1500 
500 GOTO 1400 
400 GOTO 1700 

700 IF PEEK <J> ( ) GS (WD PEEK 
(J) ( > BT THEN GOTO 1 BOO 

701 IF PEEK (J) ■ GS THEN A* ■ 
"GO SUB ..." 

702 IF PEEK (J) = GT THEN A* = 
■GO TO " 

705 FOB K = 1 TO 45535 

710 IF PEEK (J * K) ( 48 OR PEEK 

(J - Kl > 57 GOTO 1740 
720 LN = 10- * LN * PEEK (J ♦ K 

I - 48 
730 NEXT K 

740 F(NFK) = LN:NFV. - UFA * 1 
770 GOSUB 500 
780 J ■ J • K 
790 GOTO 1900 
BOO IF PEEK (J) ( ) FI AND PEEK 

(J) < > RM GOTO 1900 
801 IF PEEK (J) = FI THEN A* = 



2010 OA = AP ♦ I :R = AP + 1 :S = 

0:NA = 0A:AL = OA 
2100 FOR I = TO 45535 
2110 NA = PEEK (NA * 1) » 254 ♦ 
PEEK (NA): IF PEEK (NA) ■ 

AND PEEK (NA * 1) = THEN 

NL = 0: GOTO 2230 
2115 JA = NA 
2120 NL = PEEK <JA * 3) ■ 254 * 

PEEK (JA * 2) 
2130 1A = OA 

2-140 IF NFX = GOTO 2B50 
2200 FOR J ■ TO NFV. 
2210 IF F(J) = NL THEN F(J> * F 

<NBO INK! = UFA - 1 : GOTO 22 

25 
2223 NEXT J: GOTO 2B50 
2225 HTAB 1: VTAB 10: PRINT 'NO 

MBRE DE LIGNES REGRDUPEES '; 

: HTAB 30: PRINT ": ';I 
2230 FOR M = TO 45535 
2240 IA = PEEK (IA + 1) » 254 ♦ 

PEEK (IA) 
2245 FOR N = TO 45535 
2250 POKE R * N,< PEEK (R * N * 

S)> 
2240 1FR+S+N=lfl-1 THEN 
POKE (R t Ui,CDV.::R = R * N 
* I ;S = S * 4: GOTO 2490 
2270 NEXT N 

2490 IF IA = NA SOTO 2800 
2695 NEXT M 
2800 S = S - 4 
2BD5 POKE R - 1 ,00 
2B10 POKE AL ♦ 1, INT (R / 254) 

: POKE AL,R - 254 * PEEK (A 

2815 OA ■ JA 

2820 IF PEEK (NA) = AND PEEK 

(NA + 1> = GDTO 2900 
2830 NA = 0A:AL = R 
2850 NEXT 1 

2900 POKE R,0: POKE R + 1,0 
2950 GOTO 9000 
3000 : 

3010 OA = AP * 1:NA = OA: 
3020 HTAB 1: VTAB 08: PRINT "NO ' 

MBRE TOTAL DE LIGNES* 
3100 FOR 1 = TD 45535 
3110 NA ■ PEEK (NA ♦ 1) * 256 + 
PEEK <NA>: IF PEEK (NA) = 

AND PEEK (NA + 1) = THEN 
GOTO 3800 
3200 HTAB 30: VTAB OB: PRINT ": 



IF PEEK (J) = RM THEN A* 

REM ■ 

LN ■ PEEK !NA * 3) » 254 4 



";1 

3500 NEXT I 

3800 RETURN 

9000 REM IMPRESSION STAT 

9110 HTAB 1: VTAB 12: PRINT "TA 

ILLE AVANT EN OCTETS";: HTA8 

30: PRINT ": ■ ;NA - AP 
9120 HTA8 1: VTAB 14: PRINT "TA 

ILLE APRES EN OCTETS" j : HTAB 

30: PRINT ": ";R - AP 
9130 HTAB 1: VTAB 14: PRINT "6A 

IN";: HTAB 30: PRINT ": "; 
- INT »<R - 4096 * 4) - ( 

NA - 4094 » 4)) * 100 / (NA - 

4094 ■ 4))i'Z' 
9200 POKE 174, INT ((R + 3> / 2 

54): POKE 104,44: POKE 103,1 

: POKE 14384,0 
9300 HTAB 1: VTAB 18: INVERSE : 
PRINT ■SAUVEGARDE LE PROGRA 

MME COMPACTE PAR " 
9310 HTA8 1: VTAB 20 i PRINT "SA 

VE..." : NORMAL 
9990 TEXT _ 

10000 END • 



ERRATUM. 

La deuxieme partie du listing 
Composition a fait des sien- 
nes, la plupart des lignes se 
sont revoltees. Nous vous re- 
donnons ici ce listing dans 
I'ordre, avec toutes nos excu- 




IF C« - CHR* (13) THEN VTAB 
15: CALL - 95B: GOTO 3010 

3140 IF C* = "0" THEN VTAB 15: 
CALL - 95B: GOTO 3150 

3170 VTAB 15: CALL - 958: VTAB 
23: INVERSE : PRINT "CHANGEM 
ENT DE NOM": NOPMAL 

31B0 VTAB 15: HTAB 2: INPUT "NO 
UVEAU NOM: ■;**»: IF NN* = " 
" THEN VTAB 15: CALL - 95B 
; GOTO 3010 

31B5 VTAB 18: HTAB 10: PRINT "C 

0RRECTION(0/N)';: GET C«: PRINT 
: IF C* < ) CHR* (13) AND 
C* ( 1 "N" AND C* < > "O" THEN 
3185 



ON LL GOTO 



<X = 11 OR X = 

3830,3850,4000 
3850 IF CL = 3 THEN RETURN 
3860 VTAB 15: HTAB 5: PRINT "tL 

AVIER OUERTY(l) OU AZ£RTY(2) 

':"j: GET CI: PRINT : IF C* ( 
> "1* AND C* < ) "2" AND C 

» < ) CHR* (13) THEN 3B40 
3870 IF C* - CHR* (13) THEN VTAB 

15: CALL - 84B: GOTO 3830 
3B80 HOME :C = VAL (C*>: VTAB 

23i INVERSE i PRINT "CLAVIER 
MUSICAL / CTRL-f-FIN": NORMAL 



2047 IF C = THEN PRIN 

2070 NEXT IV: PRINT 

: PRINT ! PRINT : PRINT 

2075 PRINT D*i"PR£0": PRINT 

2060 VTAB 15: CALL - 958: RETURN 



3001 REM 

3005 HOME :TY = 1 

3010 VTAB l! FOR 1U » 1 TO 7: HTAB 

5: PRINT DO*(IU): NEXT 1U 
3020 VTAB 23: INVERSE : PRINT " 

COHMANDES DOS" ; NORMAL 
3030 VTAB DO: HTAB 4: INVERSE : 
PRINT ■)■: NORMAL : UAIT - 

14384, 12B:X = PEEK ( - 163B 

4) - 12B: POKE - 16368,0 
3040 LJ = 1 + 1 * <X = 13) » 2 * 

<X = 10 OR X ■= 11): ON LJ GOTO 

3030,3050,3270 
3050 ON DO GDTO 3040,3090,3090, 

3150,3090,3090,3260 
3040 VTAB DO: HTAB 4: PRINT ■ ■ 

: VTAB 23: INVERSE : PRINT " 

LISTING DES FICHIERS DISOUE" 

: NORMAL 



31B4 IF C* = CHR* (13) THEN VTAB 






15; CALL - 958: GOTO 3010 




1 - =": HTAB 5: PRINT "OWE 


3190 IF C* = "O" THEN 3170 






3195 VTAB 18: CALL - 84B 






3200 PRINT D*;"RENAME"iNF*;",SO 


388: 




URC£,";NN*;". SOURCE": PRINT 






D* 1 "RENAME* ;NF* ; " .08 J , * ;NN* ] 




4: INVERSE : PRINT "RONDE": 


*.08J": VTAB 23; HTAB 30: INVERSE 






: PRINT "FAIT": NORMAL : GOSUB 






140: GOTO 3000 


38B5 










3270 VTAB DO: HTAB 4: PRINT ■ ■ 




4: PRINT "4 * • ' ( i * ! t 


3280 DO = DO • 1 » (X = 10 AND D 




ERTYU10P'*"; TAB( 3 



1 IF K 



■ AND N 



"2* AND N* ( > CHR* (13) THEN 

3045 
3047 IF N* - CHR* (13) THEN VTAB 

15: CALL - 958: GOTO 3010 
3070 HOME : PRINT D* ;'CATAL0G,D 

■|N*i GET C*i PRINT 
30B0 GOTO 3000 
3090 VTAB DO: HTAB 4: PRINT ■ ■ 

; VTAB 23: CALL - 848: INVERSE 

: PRINT C0*(DO,l): NORMAL 
3095 VTAB 15: HTAB 2; INPUT "NO 

M OU FICHIER: ";NF»: IF NF* = 

"" THEN VTAB 15: CALL - 95 

8: GOTO 3010 
309B VTAB 18: HTAB 10: PRINT "C 

ORRECTIDNdVN)";: GET C»: PRINT 

: IF C( ( > "N" AND C» < ) 

"O" AND C* < > CHR* <13) THEN 

3098 

3099 IF C* = CHR* (13) THEN VTAB 
15: CALL - 958: GOTO 3010 

3100 IF C* = •0" THEN VTAB 15: 
CALL - 958: GDTO 3090 

3105 VTAB 18: CALL - 84B 

3110 PRINT D*;CO*(D0,2);NF*j".S 
OURCE"; PRINT D*;C0*(D0,2) ;N 
F*j".0BJ": VTAB 23: HTAB 30: 

INVERSE : PRINT "FAIT": NORMAL 
: GOSUB 140: GOTO 3000 

3150 VTAB DO: HTAB 4: PRINT * ■ 

: VTAB 23: CALL - 84B: INVERSE 
: PRINT "CHANGEMENT DE NOM": 
NORMAL 

3155 VTAB 15: KTA8 2: INPUT "NO 
M DU FICHIER: " ;NF* : IF NF* ■ 
"" THEN VTAB 15: CALL - 95 
8: GOTO 3010 

315B VTAB IB: HTAB 10: PRINT "C 

ORRECTION(0/N)";: GET C*: PRINT 
: IF C* ( ) CHR* (13) AND 
C* ( ) "N" ANO C« < ) "O* THEN 
3158 



( 7) - I « (X ■ 11 AND DO ) 
1) * 4 • (X ■ II AND DO = 1) 

- 6 • (X = 10 AND DO = 7): GOTO 
3030 

3399 REM 

3400 REM —SILENCES— 

3401 REM 

3405 HOME :TL = 1: FOR IV = 20 TO 

33: HTAB 5: PRINT NO*<IY): NEXT 

1Y 
3410 IF NOT (TI) AND NOT (TK) 

THEN VTAB 23: INVERSE : PRINT 

"ECRITURE": NORMAL 
3420 IF TI THEN VTAB 23: INVERSE 

; PRINT •INSERTION 0'UN.E, N.gT 

E": NORMAL 
3430 IP TK THEN VTAB 23: INVERSE 

t PRINT "CORRECTION D'UNE NO 

TE*l NORMAL 
3440 VTAB 20: INVERSE ; PRINT ' 

NOTE N*-;Ti" ■ | NORMAL : VTAB 

SI: HTAB 4; INVERSE : PRINT 

•>": NORMAL : UAIT - 14384, 

126:X = PEEK ( - 14384) - 1 

28: POKE - 14348,0 
3450 LK ■ 1 + 1 * (X « 13) + 2 * 

(X = 10 OR X = 11): ON LK GOTO 

3440,3470,3440 
3440 VTAB SI: HTAB 4: PRINT • ■ 

:SI = SI 4 1 * (X = 10 AND S 

1 < 14) - 1 • (X = 11 AND SI 

> I) * 13 * (X = 11 AND SI = 

1) - 13 * (X = 10 AND SI = 1 

4): GOTO 3440 
3470 VTAB 20: INVERSE : PRINT " 

NOTE N";Tr": ";NO*(SI * 19) 

: NORMAL 
3480 VTAB 18: HTAB 10: PRINT "C 

0RRECTION?<0/N)";: GET G* : PRINT 

: IF G* < > "N" ANO G» < > 

•0" THEN 3480 
3490 IF G* = "0" THEN 3400 
3500 ME(T,1> = SI + 19iME(T,2) - 

0:ME<T,3) = SI : IF TI OR TK THEN 
RETURN 
3505 TA ■ TA-t 1 * (TA < 200) 
3510 RETURN 
3799 REM 
3B00 REM —CLAVIER MUSICAL--- 

3S1 D REM 

3B20 HOME : FOR JM = 1 TO 3: HTAB 
5: PRINT CMVJM): NEXT JM: VTAB 
23: INVERSE : PRINT "CLAVIER 
MUSICAL": NORMAL 

3830 VTAfl CL: HTAB 4: INVERSE ; 
PRINT ")": NORMAL : UAIT - 
14384, 12B:X = PEEK ( - 1438 
4) - 128: POKE - 14368,0 

3840 LL = 1 + 1 * (X = 13) t 2 ■ 



3884 IF C = 2 THEN HTAB 6: PRINT 
•QSDFGHJKLNH 1 -! HTAB 
14: INVERSE : PRINT "RONDE": 
NORMAL : POKE 35,17: VTAB 1 



3890 


UAIT - 


14384,128 


N - 




- 163B4 


- 128: POKE 




368,0: IF 








GOTO 3B10 




JBV^ 


IF N < 


1 GS iW t 






AND N < 


) 64 AND 1 






AND N < 


) 7B THEN 


^ft"1 


38V: 


= 225 




* 17 




N = 6?> 


d4 * ffl i 


flf» 




2 * (N = 44) + 18 * 


(N - 


3894 


TEXT :M 


= 1 * (N = 


B8) 



VTAB 22* HTAB 14: CALL - 8 
46: INVERSE : PRINT M*(M) : NORMAL 
: POKE 35,17: VTAB 1: GOTO 3 



3895 


IF (N < 


39 AND C = 1) 


OR ( 




( 33 OR 


N ) 125) AND 


- Z 


38?6 


IF CLV.( 


;,1,N - 39 • < 


■ 1 




- 33 * 


C » 2)) = I THEN 3 


690 






3900 


POKE 74B,CLX(C,1,N - 


9 * 




C = 1 > - 




POKE 


749,0: CALL 770 




3910 


IF CL = 


1 THEN 3890 




3920 


CALL - 


912: VTAB 15: 


■(TAB 


4: PRINT 


L*(CLX(C,2,N 


39 » 




C = 1> - 


33 * (C = 21) 


: GOTO 


3690 






4000 


VTAB CL 
CL = CL 

( 3) - 
) t 2 . 


HTAB 4: PR INI 

1 * OC - 10 t 
* « = 11 AM 

X = 11 AND CL 


ND C 
CL > 




- 2 * <> 


= 10 ANO CL = 


3): GOTO 


3830 






4999 


REM 






5000 


REM — 


-TRAITEMENT ERREURS 



5001 REM 

5005 CALL 815:ER = PEEK (222): 

IF ER = 255 THEN RESUME 
5008 IF ER = 1 OR ER ) 10 THEN 

POKE 214,0:ER = 1 
5010 VTAB 23: CALL - 868: HTAB 

VAL (ER*(ER,2)): INVERSE : PRINT 
ER*(ER,1): NORMAL : GOSUB 15 
0; CALL 800 
5015 IF TZ = I AND <ER = 5 OR E 
R ■ 4) THEN PRINT 0*;"DELET 
E";N*;". SOURCE" :M* = *■ 
5020 GOTO 20- • 



ORIC 1/ATMOS ^ 

Suite de la page 5 

2229 PLOT0-22.fi* 

2230 PLOTS, 23, fl* 

2249 PLOTS, 24, fi* 

2250 PLOTS, 25, fi* 
2260 PLOTS, 26, fi* 



2340 FORQ*48000TO48039 

2350 POKEG..32 

2360 POKEG+40,32 

2370 NEXTQ 

2380 CLS 

2390 PfiPER?:INK0 

24SS P0KE618,3 



2280 REM CHOIX D'UNE RUT 2410 PRINT >PRJ NT* £t bier. 



RE PART IE 

2300 PLOT 1,23, " VOU 1 SZ-V 

f*ire u.ne autre Partie 

231S rjETB* 

232B IFB*="0"THEN243S 

2330 IFB*O"N"THEN2310 



bientot 
2420 PRINT ;EN[> 
2430 PLOTS, 23, R*+" 
244S G0T02:30 



2430 fl*=" 

249S PLOT0.Sl,fl* 

2500 PLOTS, 22.fi* 

2510 Pt.OT0,23,H* 

252S PLOTS, 24, fi* 

2530 PLOTS, 25, FI* 

2540 PLOT0,26,fi* 

2550 PLOT 1,21, "Bravo, vous .= 

v*>Z ^A^ne e-n "+rx*+" COUPS* 

25SS PLOTS. 23," Fa i tea vous 

le parie que Je VOUS bat ?" 

"O"THEN2620 



259S 


IFB*0"H"THEH257S 


260S 


PLOTS, 23. fW+" " 


2610 


GOT023SO 


7>SPB 


PLOTS, 23, fi*+" " 


263S 


[>P=S 


2^40 


GOTO 1790 


PfiflO 


i~L v: ■ Gn:-:i Ip.^sfi 


?r,ai 


PAPERS 'I HK2 


-■•f.?:) 


PRINT 


:-'>-: « 


PRINTCHP*C4>;CHR*<27> 


N 


LES RNNEfiUX D'ORIC 


2690 


PRINTCHR*C45 


2700 


PRINT 



2710 PRIHTCHRSf 134:)" Un JeU 
d* Thomas GEMPP <t 1/8/1964 

2720 PRINT 

2730 PRINT" Ce Jeu rr'est q 

u.'i_m casse-tetejsoti" 

2740 PRINT "veritable bom e-s 

t les armeaux hori9rois"; 

:?75S PRINT" II s'a91t de d 

eux anne-aux de billes" 

276S PRINT"s'e-ntrec:roisa'nt 

eri deux endroit-fiu" 

Suite page 8 



NOUS AVONS ENCORE BESOIN DE VOUS! 



Le questionnaire lecteurs que nous avons fait cet ete a complement chamboule le contenu de I'Hebdo. C'est le moins que I'on 
puisse dire ! Comme nous sommes completement masochistes, nous remettons ca ! Renvoyez nous le formulaire ci-dessous et ne 
menagez pas les critiques (ni les compliments !). 
Cinquante logiciels seront tires au sort pour que vous ne travailliez pas pour rien. A vos stylos I 




50 LOGICIELS A GAGNER. 




QUESTIONNAIRE 
LECTEURS 



QUI ETES-VOUS ? 

Sexe mascuhn. 

Sexe femmin... 

Voire age 



DEPUIS QUAND LISEZ-VOUS HEBDOGICIEL? 

Depuis le premier numero.. 



Depuis le numc-ro (precise;/ le N" ) 

C'est la pren-.'cre folS que je le lis ,. 

LISEZ-VOUS REGULIEREMENT HEBDOGICIEL ? 

Oui. toules les semaines... .. □ 

Oui. lous les 15 jours D 

Oui. au moins une fois par mois D 

C'est la premiere tois que \c le lis □ 

Non. je ne le lis que de temps en temps — . ..D 

COMMENT AVEZ-VOUS CONNU HEBDOGICIEL ? 

Par un stand du Sicob -.-- D 

Par un stand de Micro-Expo ■-■□ 

Par Sciences et vie Micro — D 

Par Micro 7 D 

Par 36.000 Micros de Microtel D 

Par un autre journal, lequel - E 

Par une emission de I eU\ laquelle □ 

Par une emission de Radio, laquelle.. .□ 

Pardes amis - ■ ■ O 

A I'ecole. au lycee. a i universiie D 

Dans voire activite p:o!essionne"e D 

En le decouvrant chez le marchand .O 

Par un autre moyen. lequal □ 



QUELS PROGRAMMES D'HEBDOGICIEL TAPEZ- 
VOUS ? 

Les programmes pom mon onfnateur. ....Q 

Je les lape tel quel - Q 

Je les ameliore - □ 

J'adapte les programmes des aulres ordmaleurs ..□ 

Je travaille seul. .....D 

Je travaille avec d aulres personnes D 

DEPUIS COMBIEN DE TEMPS TAPEZ-VOUS DES 
PROGRAMMES INFORMATIQUES ? 

Plus de 2 ans □ 

De 1 a 2 ans p 

Plus de 6 mois a 

Moins de 6 mois □ 

SUR QUEL ORDINATEUR TRAVAILLEZ-VOUS ? 



QUEL EST VOTRE AVIS SUR LES RUBRIQUES 
D'HEBDOGICIEL ? 

BON MOYEN NUL 



















































Page Tele 




































Pepe Louis conUe le gang des puces ..... 







ENV1SAGEZ-VOUS D'ACHETER UN ORDINATEUR ? 

Non D 

Oui. quelle marque, quel modele... D 

ENVISAGEZ-VOUS DE CHANGER VOTRE ORDINA- 
TEUR ? 



D'UNE FACON GENERALE QUEL EST VOTRE AVIS 
SUR HEBDOGICIEL ? 



Non □ 

Oui, pour quelle marque, quel modele q 

QUEL LANGAGE CONNAISSEZ-VOUS ? 

Debutanl Chevronne Prolessionnel 



OU VOUS ETES-VOUS PROCURE CE NUMERO ? 

Je I'al achete dans un hlosque ...D 

Je I'ai achete dans une maison de la pressc LJ 

Je suis abonne a 

C'est le journal de mon club dm formal ique D 

C'est le journal de i'ecole... D 

C'est le journal d'un ami -D 

C'est une pholocopie.... - — D 

Je I'ai eu par un autre moyen, lequel 

OU ACHETEZ - VOUS HEBDOGICIEL ? 

Toujours au memo endroit.... - -. D 

N'importe oil D 

Je le trouve Ires tacilement... D 

Je le trouve dilfic .lament O 

Ou habilez-vous, viiic ct d pane men! 

QUI LIT VOTRE HEBDOGICIEL ? 

Je suis le seul a le lire O 

Une autre personne - ■ D 

Plusieurs personnes, combien _ — 

QUE FAITES-VOUS DES PROGRAMMES D'HEBDO- 
GICIEL ? 

Je les tape toutes les semaines Q 

Je les tape regulierement D 

Je les garde pour les taper plus lard ...D 









Basic 












Logo 


















LSE 







QUELLES AUTRES REVUES D'INFORMATIQUE 
LISEZ-VOUS ? 



De temps en temps 


Sou vent 


flegulierement 














Micro systemes 




































Till 






Lordmateur personnel..... 




































Autre, lequel 







SI VOUS ETES ELEVE OU ETUDIANT, 

voire classe 

I'activite profess ion nelle de vos parents 

SI VOUS TRAVAILLEZ, 

voire profession 

voire secleur d'aclivitG 

voire niveau d'etudes.. 

voire niveau de remuneration annueiie 



Ce questionnaire est destine a un usage interne, il 
servira a ameliorer les prochalns numeros d'HEB- 
DOGICIEL H est confidentiel et ne sera pas diffuse, 
sous aucune forme que ce soit Vous pouvez, si 
vous le desirez, remplir le bon de participation ci- 
dessous et particlper au tirage au sort sans repon- 
dre au questionnaire. Des bons de participation 
sont egalement disponibles en ecrlvant a la redac- 
tion. Si vous voulez que votre questionnaire reste 
anonyme, ne remplissez pas le bon de participation 
mais repondez au questionnaire et renvoyez-le 
nous , ga nous rendra bigrement service. 



BON DE PARTICIPATION AU TIRAGE AU SORT. 

NOM: 

PRENOM: 

ADRESSE: 

CODE POSTAL: 

SI JE GAGNE UN LOGICIEL AU TIRAGE AU SORT, 
JE CHOISIS DANS LE SOFT-PARADE LE LOGICIEL 
SUIVANT : 



ORIC1/ATMOS 



j£1l 



^r Suite de la page 7 

2770 PRIHT"total il y 
billes < 1@ rouges, IB" 
2780 PRIMT"vertesv9 ,i. 
et 9 blanches?. " 

2790 PRINT 
2S0O PRINT" Bv 

2819 PRINT "fere 
S SflTieaUX comme 

2820 PRINT 
2830 PRINTCHR*< 129 
CHP*'' 131 V' = 
gauche" 

284B PRINTCHR*C129>"B?5 
GHfe*U3l >" = le ler vers I 
droite" 

2850 PRINTCHRS'- ISSV'Haut 
CHP*' 131 >" ■■ le- 2em<? 

9*uche" 
2860 PPINTCHRS<129>"[>roite 
CHR*C131> H < le 2eme vers I 

droite" 



2870 PRINTCHR*U2!?>"PEL 
CHPSf 131 V : Pour ?b?ndonner 
"'PRINT 

2880 PRINT" Flu. debut les a 
: sont melanges" 



3030 REflPR 

3940 POKEI.fl 

3050 NEXT I 

30150 DR.TR. 30,63,63,63.63,63 



vers l? 



I*?, f lech 2890 PPINT'T-end-a-nt 
S" 2 minutes 30 ! ! !" 

tou.rr.er I e 2900 PRINT 

el? :"; 2910 PRINTCHRS< 149>"flPPu.yez 

SUC Utie fcouche Pour cowmen 
cer"; 

2920 PL0T9,25,7 
2930 GETBt'CLS'IHK? 

2949 RETURN 

2950 FORI=4S0Ov(Tn4Sfl , ": , =f 
2960 POKE 1 , 32 

?.u.t " 2970 HEXTI 
5TS U 2980 RE5T0RE 

2990 FORI=1TO40 

3000 REflDfi 

3010 NEXT! 

3@S0 FQRI=46592T046599 



Voiron 3070 F0RI=46840T046S47 

3088 RERDfl 

3090 POKE I. 8 

3100 HEXTI 

3110 DATA 30, 33,33, 33, 33,33 

. 30 . 00 

3120 RETURN 

5010 REM flFFICHE LE 1ER 

RNNEAUX 

ggg@ fopj=ito?9 

5g4@ 2=VRL< MID*< X*, J . 1 >> 

5059 I FZ= 1 THENO 1 i 05= " S " 
5960 IFZ=2THEN0=3=0*="e" 
5970 IFZ=3THEH0=2 0$="-" 
5939 IFZ=4THEN0^7^0$=" _" 

5099 POKEPlf ..l')-l ,0 

5100 P0KEP1<J:i-41 .0 



5119 P0KEPKJ>,RSCX0aO 

5120 POKEPKJ>-40.flSC'O5' 
5130 NEXT.J 

5140 RETURN 
5150 F0RJ=29T0ISTEP-1 
5160 Z=VflL<MIM<X*,J,l)> 
5170 IFZ=lTHENO=l:0*="i?" 
5180 IFZ=2THEN0=3:0*="ii!" 
5190 IFZ=3THEN0"2'0*«"_" 
5299 IFZ=4THEN0=7:0S="_" 

5219 P0KEPHJ?-1,0 

5220 POKEPKJ>-41/0 
5230 P0KEPKJ>»flSOC0*:> 
5249 POKEPK-J>-40 J iflSC<O*? 
5:-*50 NEXTJ 

e -\2fS RETURN 

R^10 REM flFFICHE LE 2EI1E 

HNNERIJX 
5330 FOP>1TD20 
5340 Z ! »VflLCMID«<Y$.J,l>) 
5359 IF2=1THEH0=1 iQ*»"8" 
5369 IFZ=2THEH0=3OS="i:i" 



■^770 
5339 
5390 
5400 
5419 
5429 
5430 
5449 
5459 
5460 
5479 
54*0 
5490 
5500 
5510 
5520 
5530 
5540 
=■550 
5560 



IFZ=3THEN0=2'0*="^" 

IFZ=4THEND=?'0*a"_ u 

PnKEP2<J)-l,0 

P0KEP2f:J>-41,0 

P0KEP2< J > . F1SCC 05 > 

P0KEP2C J >-40 . flSC 0S i 

NEXTJ 

RETURN 

F9RJ=20TO1STEP-1 

Z=VfiL<MIM":Y*»J*i) 



: 0J=:"|S" 

:!0*="e n 



IFZ=1THEN0=1 > 
IFZ=2THEN0=3;i 
IFZ"3THEN0=2'I 

IFZ=4THEH0=7:0*=" 
P0KEP2i-J>-l,0 
P0KEP2(J)-4i,0 
P0K.EP2': n,flSCi:0$* 

POI EPi( i JHfi.fl^n?', 

NEXTJ 

RETURN « 



C'est nouveau, ca vient de sortir 



BIDOUILLE GRENOUILLE 



Special Deprime 

A quoi sert toul cela 7 Quel est 
le vrai bul ? C'est la question 
que je me pose aujourd'hui, 
sans pouvoir y repondre. Le pire 
est que depuis deux mille ans, 
quelques cretins joyeux se po- 
sent eux aussi la question en ri- 
golant. sans pouvoir y repondre 
plus que moi. Mais ils se mar- 
rent, ces cretins. Quelle deri- 
sion. J'ai une intime conviction: 
toul cela ne sert a rien. Tout est 
inutile. Je sais, c'est une philo- 
sophie pour le moins nihiliste. 
mais lorsque la veriie apparait 
dans sa plane lumiere. a quoi 
bon la nier "* 

La vie. la mort. lout ca... Ne 
dites pas que .e suis dans une 
penode dc deprime. ne diles 
pas que j'ai un temperament 
suicidaire. ne diles pas que j'ai 
perdu le sens de lahsoiu Avoir. 
un jour, la certitude que la veriie 
vous appartient est une epreuve 
que ie ne souhaito pas a mon 
pire ennemi. Tout se tail jour en 
moi La futiiilc des choses. des 
actes. des paroles, des ecrtls, 
des rapports, des e changes est 
dcven.;« pour moi d une telle 
evidence que c ne puis oius de- 
sormais supporter la moindre 
concession a rhypocnae et a la 
dissimulation. 




A quoi sert de savoir comment 
eviter le chien dans Arsene 
Lapin ? Jean-Christophe Bos- 
land, qui a trouve la solution, 
est-il reellement plus heureux 
pour autant ? Le tail de savoir 



qu'il taut avoir la corde et le 
couteau. puis grimper a larbre. 
sauter dans le jardin, puis dans 
la piscine, tuer le crocodile avec 
le couteau. puis fouiller la p 
cine aim d'y trouver une huii 
une palourde et un benilier, i 
vrir le benilier et prendre le mas- 
que qui s'y trouve, prendre I hui- 
tre et tuer le chien avec le gaz 
qui s'echappe de lun des deux 
coquillages dans lequel on 
trouve un rubis et une perle. 
puis sortir de la piscine et aller a 
la statue, tourner le bouton et 
prendre le passe-parlout... Tout 
ceci l'aide-t-il vraiment a trouver 
le bonheur ? Si oui, il doit avoir 
une force de caraclere hors du 
commun pour ignorer avec tant 
de superb e la vanile des 
choses. 

El lous ceux qui, comme Phi- 
lippe Malinski. deplombent des 
logiciels sur Vic-20 ? Trouvent- 
ils dans cet exutoire pueril une 
quelconque solution a leurs 
doutes exislenliels ? La somme 
de travail tourni pour obtenir les 
resullats qui suivent prouve bien 
le besoin d'abrutissement par la 
concentration qu'il eprouve. 
Combien de temps iui a-t-il fallu 
pour trouver le programme qui 
sert a lire les mots-cles des jeux 
de Scott Adams ? 

10 FOR l= 15000 TO 22000:A- 

PEEK(I) 
20 PRINT CHRS (PEEK(A)>; 
30 GET A$ :IF AS = "A" THEN 30 
40 NEXT I 

Et par quelle torture cervicale 
est-il parvenu a deviner que le 
nombre de vaisseaux dans Gri- 
drunner est en 7045 et qu'il suf- 
fit done de faire POKE 7045.xx 
pour avoir xx vaisseaux ? Et que 
POKE 7041. xx change de ni- 
veau, xx etant le niveau desire ? 
Et Metagalactic Llamas ? Quelle 
sublime abnegation Iui a-t-il ete 
necessaire pour trouver le 
moyen de changer le niveau ? 
Charger Metagalactic. (aire New. 
puis LOAD "LLAMA", 1 . 1 puis 
POKE 4392, xx pour le nombre 

ge valsseaaK et POKE §§§§ r j« 

pour le niveau, el enfin RUN el 
Fl. n'est-ce pas un indice reve- 
lateur du desir dc neanlisation 
dont il tail preuve ? 
Et ce nest pas tout. L apostasie 
dont il s'est fail le chantre n'est- 
elle pas I indubitable signe de 
son renoncement ? 



Pour Jupiler Defender, il peul 
changer le nombre de vaisseaux 
en latsant POKE 4578.xx et le 
nombre de bombes par POKE 
4582. xx. alors meme que le pro- 
gramme est en basic el non pas 
en langage machine comme I in- 
dique la jaquette. II arrive meme 
a le sauvegarder en faisant; 

10 POKE 7680,82: 
l. POKE 38400.0 

20 LOAD ".1.1 

11 sauve ce petit programme, 
puis charge le premier de la 
cassette onginale 'ait NEW. 
charge le second fait POKE 
56,31 et SAVE , ",i.i a la suile 
de celui decril ci-dessuS Pour 
pouvoir changer te nombre de 
vaisseaux sans probiemes il 
charge la premiere partie. tail 
NEW, charge la seconde et 
tape: 

POKE 7680, 82 POKE 38400.0 
POKE 4582.xx:POKE 4578.XX 
RUN 

Et Jean Lacoste ? Est-il cons- 
cient que ses demarches pour 
rajouter des vies (POKE t 
767,255) et ralentir le |eu 
(DOKE # 306,2000) dans 
Xenon ne son! que dissimula- 

El eel a non y me (pourquoi se 
dissimule-t-il ? La peur ?) qui me 
dit que POKE 2048.255 avani le 
chargement dun programme en 
basic sur Commodore 64 provo- 
que une erreur de synlaxe et le 
non deroulement du pro- 
gramme ? Et qu'il sutfit de re- 
mettre en 2048 pour reautori- 
ser le RUN ? N'a-t-it pas des 
problem es caches, comme nous 
tous ? 

Jacques -Fran go is Wadel semble 
plus pret a accepter la realite de 
la vie. C'est avec desespoir qu'il 
m'envoie la facon de deplomber 
certains logiciels sur Oric-1. en 
lurani qu'il se consacrera desor- 
mais a la recherche de noire but 
ultime. Ses yeux se sont dessil- 
les. et la veriie Iui est apparue 
comme a moi. 

Void un petit programme qui 
stoppe lauto-run sur Onc-1: 



Apres avorr fait RUN el CALL - 
BFE4. il faut charger le pro- 
gramme que Ion veu! sauvegar- 
der. puis entrer en mode direct: 



Au bord du suicide, it me conlie 
aussi que pour habiller la fille 
dans Kikekankoi. il taut prendre 
le deltaplane et alter le vendre 
dans la ville pour avoir de 'ar- 
gent avec lequel on peut ache- 
ter une robe. Pour ressorttr. inu- 
tile de tout relraverser, jouer au 
passe-muraille est plus court. 




Ca va de moins en moins bien. 
Meme te Minitel me semble fu- 
tile. Meme si Ton peut obtenir 
sur le 613 91 55 un grand nom- 
bre de serveurs. comme TDAAT 
par le 133000428. ou un serveur 
avec une messagerie par le 
19206036106 en tapant d'abord 
un retour chariot (louche spe- 
ciale + Envoi), puis "login invite- 
en minuscules et en ne validant 
les commandes que par Retour 
chariot. Meme le 178020118 ne 
minteresse plus, et je n'ai pas 
cherche de mot de passe. Je 
me desinteresse meme de mon 
modem 300 bauds, alors que je 
pourrais obtenir lordinateur de 
la laculte de St Denis qui tourne 
sous Unix en composant le 829 
01 33. 

In vino veritas. J'ai encore trop 
bu. moi Et a chaque fois c'est 
la meme chose. j'ai une gueule 
de bois d'enfer, et je pars dans 
des del ires phjlosophtco- mysti- 
ques qui abouiissent toujours au 
meme resultat: la prise dun ca- 
chel d'aspirrne. J'aurais du 
ecrire ce texte apres lavoir 



1 DOKE § BFE4.169;DOKE # BFE6.13701 

2 DOKE i BFE8,169:DOKE « BFEA.26501 

3 DOKE If BFEC.51744DOKE = BFEE.8422 

4 DOKE U BFF0. 58536 DOKE - BFF2 1100 

5 DOKE # BFF4. 24808 :NEW 



LES CLES DES ROBOTS 



Le Journal de la Robotique a 
publie une plaquette conlenant 
tes 250 termes les plus impor- 
tants de la robotique. ave la 
petile traduction en Angliche 
pour que celle-ci soil vraiment 
utile. La robotique se deve- 
loppe moins vile que la micro, 
mais les deux activites sont 
etroitement liees. Et pour les 
arrieres petiis-fils de Fran- 
kenslein. je signale quil existe 



un magazine ROBOTEL sur 
minitel et que ceiui-ci est rea- 
lise par le CESTA. Tele- 
phone:!!) 637.07.50 




APPRENEZ U ANGLAIS EN 
UNELECON 



Grace a Infogrames qui pro- 
pose une traduction originale 
de lexpression "Space Inva- 
ders" en Invasion . Pas plus 
tard qu'hier au soir, je ne 
savais pas moi-meme qu'il 
existait un jeu d'arcade valable 
pour T homsorv Mais comme 
|aime faire participer les lec- 
teurs a mon ignorance, ] ai 
charge mon M05 avec le sus- 
: 1 1 1 oqicici Et. 6 surprise, le 
jeu ma 'rapot: en pleine veine 
critique: les graphismes ne 
sont pas nuls, la vitesse de jeu 
n'est pas ringarde, la difficulte 
est progressive. Bref un bon 
soft, mais vous savez comme 
je suis: il faut toujours que \e 
trouve quelque chose a repro- 
cher a ce qui me passe entre 
les mains. Et j'ai trouve, niark 
niark ! Le jeu nest absolumem 
mais alors absolumenl. pas 
original du tout. La traduction 
approximative livree plus haul 
en prime avec la critique, nest 



pas gratuite: il sagit bien en 
loccurence dun jeu du type 
Space Invaders. 
Conclusion: Infogrames, le 
poids des mots, le choc des 
classiques 




COTE DE PORC 



Dieu pnt une cote a Adam et II 
crea la femme Les geneliciens 
Danois se prennent pour Dieu 
Apres moult eludes en labora- 
toire. ils viennent de creer 
une nouvelle race de 

pores. ..possedant deux cotes 
de plus que le modele original 
Ces abrutis de savants ont lair 
lout a fail satisfaits de leur de- 
couverte. Tremblez 
freres I Le |Our ou linformati- 
que et la genetique vonl saltier 



totalement taudra voir a sur- 
veiller de plus pres nos blou- 
ses blanches. 




PAS DE £A, LISETTE 



A quoi quelle sert la 
Commission Nationale Infor- 
matique et Liberie? Cette fille 
de garce a donne laulorisa- 
tion a ladministralion fiscale 
de creer un fichier national 
pour tous les contribuables 
francais Depuis. on travaille 
comme des fous au minislere 
pour preparer le programme 
qui sera operalionnel debut 
1987. Ce programme a ele 
baptise SPI: Simplification 
des Procedures d imposition. 
Vous ne manquerez pas de 
noler que SPI est Ires proche 
de SPY qui veut dire ESPION 
en anglais Pres de 23 mil- 
lions de foyers vonl elre 
liches. mais on jure que ce li- 
chier ne sera pas connecta- 
ble avec un autre fichier. 
comme celui de la secu par 
exemple. Faut pas jouer sur 
les mots: dire qu un tichier 
nest pas connecTABLE. n"a 



pas la meme signification 
que de dire qu'il ne sera pas 
connecle Dans le premier 
cas. il s'agirait d une impossi- 
bilite materielle, dans le se- 
cond cas d un comportemenl 
deontologique. On ne me la 
fail pas, a moi I Je ne crois 
pas aux bonnes resolutions. 
Au premier changement de 
gouvernemenl que se pas- 
sera-t-il ? Aux armes ci- 
toyens ! Formez vos batail- 
lons ! II faut faire tomber la 
tete des renegats de la 
Commission Informatique et 
Liberie ! Faut les envoyer en 
Sibene ou en Caledonie I 




SUIVEZ LE GUIDE 



Beyond Software vient de 
Iranchir le mur du son de la 
qualite avec son logiciel Psy 
Warrior Depuis Boulder 
Dash, i avais plutbt tendance 
a ne plus allumer mon micro 
plus de Uente secondes. La. 
j'y suis reste facilement qua- 
Ire heures. Le pied d'acier 
La prise de contact avec mon 
guerrier s'effectua sans 
heurt: normal, tl se deplace 
sur un skateboard a propul 
sion lonique a la place des 
roues. Son champ de ba- 
taille: un immense silo cylin 
drique forme de multiples 
etages superposes Son but 
casser la gueule a tous ces 
ent... de gardiens jusqu a la 
base du silo et bousiller la 
source de ces aliens. Vous 
croyez peut-etre a un mau- 
vais Space Invaders, eh bien 
rate! Vous disposez de qua- 
tre-vingt filets a energie qui 
peuvent empnsonner nim- 
porte quel ennemi (pour des 
durees variables). Pratique- 
ment. tout se passe a coups 
d'energie psychique: gran- 
diose A chaque combat, 
vous perdez une partie de 
voire potentiel que vous pou- 
vez recuperer grace a vos 
filets a energie. Meme votre 
planche a ions souffre de 
pertes d energie (reparables 
en prenant patience). Vous 
me croirez si vous voulez. 



mais ce |eu est tabuleux. le 
chumtemenl de la planche 
flottant au ras du sol vaut 
bien la cinquieme de Beelho- 
ven (et Dieu sail que |e 
I'aime), le graphisme tabu- 
leux n'a pas son pareil pour 
le moment lla tete du guer- 
rier reqarde de tous les coles 




en permanence), la difficulte 
du jeu nest pas exageree et 
ne pousse done pas au sui- 
cide immediatement. 
Comment, vous ne I avez pas 
encore? Voulez-vous vous 
presser un peu: il existe pour 
C64 et Spectrum. 



LE CRIE QUI TUE 



C est le patron de Toshiba 
qui a lance mercredi dernier 
a Paris le fameux Cri Qui 
Tue! Voici en substance ce 
qua annonce Ihonorable 
Monsieur Atautoshi Ni- 
shida:"Toshiba sera le nu- 
mero 1 europeen des compa- 
tibles IBM en 1987. et le 
numero 1 mondial quelques 

etre pas tort, parce que les 
Toshiba sont vraiment 
compatibles IBM et 20 a 30% 
moms chers. Ils en ont vendu 
pres de 10.000 en Europe. 
Par la meme occase, Ataulo- 
shi Nishida (je repete son 
nom parce qu'il est fendard) 
a annonce pour immediate- 
ment, bientot, dans pas long- 
temps, tout de suite mais ga 
devrait pas tarder, quoi ? ils 
ne sont pas encore la. bou- 
gez pas ils arnvent...deux 
nouveaux ordinateurs minia- 
turises, compatibles IBM. ave 



des ecrans plats comme des 
limandes a cristaux liquides 
comme du sake. Non seule- 
ment ils seront plus petits, 
mais lis tourneront quatre 
fois plus vite que I'lBM PC. 
Et bourn! Un grand coup de 
pied dans les parties sensi- 
bles de loncle Sam. Les prix 
tourneront aux alentours de 
21000 et 30000 francs selon 

les modSiea. en version de 
base. Vous pouvez commen- 
cer a acheter des Yens. 




LE POUVOIR 
DE 1/ INFORM ATIQUE 



Ca discute sec en ce moment 
a I'ONU Les pays du tiers- 
monde ou les pays en voie de 
developpement ralent comme 
des putois Tout le monde a 
compris que la revolution infor- 
matique serait au moins aussi 
importante que la revolution in- 
dustnelle au 19eme siecle. Le 
probleme. cest que 55°o du 
pare mondial des ordinateurs 
est entre les mains des Etals- 
Unis Et ce pourcentage est 
encore plus important si Ion 
lienl compte des compagnies 
amencaines a letranger. L'ac- 
cumulation des donnees et des 
informations dans les ordina- 
teurs devient un veritable tre- 
sor d'Ali-Baba Desormais, il 
faut payer pour Iransmettre ou 
consulter ces donnees. On 
comprend que le monopole de 
fait des Yankees affole le reste 
du monde. Certains pays sont 
obliges de raquer pour avoir 
des renseignements sur leur 
propre compte Un exemple: 
les satellites photographient et 
analysent chaque point du 
globe. Si les Africams veulent 
en savoir plus sur leurs reser- 
ves de pefrole. sur leurs recol- 
tes ou ;.ur la meteo. ils sont 
obliges d allonger des ronds 
Autre exemple: quand les Ly- 
biens ont danse la valse-hesi- 
lation du "reviens-va-len" au 



Tchad, la Maison Blanche 
avail toutes les infos en main 
avant Paris Ce_ genre de ren- 
seignement couterait cher s'il 
devait etre monnaye. 
Le pouvoir de I'informatique 
risque done de creer un nou- 
veau desequilibre entre les oc- 
cidentaux dont les estomacs 
cachent les ceintures el les 
pays sous developpes qui ont 
Ires nettement la sensation de 
se faire vampiriser. 
Comme le souligne tres juste- 
menl Diana Lady Dougan. dont 
le nom ressemble fort a celui 
dun cheval de tierce: "(.'Infor- 
mation est du Pouvoir. plus va- 
lable que le petrole et plus pre- 
cieux que Tor". 




C'est nouveau, pa vient tie sortir 



AU CGEUR DES TENEBRES 



Connaissez-vous un pro- 
gramme legendaire ? Pas un 
Space Invaders ou un bete 
Visicalc, non. 

Un programme comme 
Locksmith 5.0. 

Un programme dont le mythe 
se trouve amplifie par le 
nombre dantesque de copies 
piratees, suppleant a la ra- 
rete des originaux. Dont peu 
d'utilisateurs connaissen! les 
possibilites reelles. Et ne 
parlons pas de I'odeur de 
soulre... 

Voyez-vous, Locksmith est 
un utilitaire de sauvegarde. 
Comprenez un. hmm, pro- 
gramme de pompe, destine a 
copier des disquettes prote- 
gees. Ca ne plait pas a lout 
le monde, mais les utilisa- 
leurs savent qu'une disquette 
est un support fragile, et 
qu'un logiciel est un produit 
cher. Et protege contre la 
copie. 

Des son introduction sur le 
marche, la premiere version 
de Locksmith fit I'enfer. Ce- 
tait le premier "nibble copier", 
c'est a dire copiant les dis- 
quettes piste par piste, nibble 
par nibble. La, les protec- 
tions classiques (effacement 
de la piste 3, catalogue code, 
etc) prirent un coup de vieux, 
Pas pour longtemps, evidem- 
ment: la course entre plom- 
beurs et copieurs n'est pas 
pres de s'arreter. 
Locksmith est surtout un co- 
pieur, mais c'est aussi un 
fantastique outil de travail sur 
le contenu brut d'une piste: 
et pour bien s'en servir, il 
faut bien connaitre le DOS. 
Oui. Je sais. C'est le parti- 
cipe present de la forme ver- 
bale du mot de Cambronne. 
Mais ce qui suit se limite a 
i'essentiel, et j'essaierai de 



rester comprehensible. 
Quest-ce qu'un nibble ? 
C'est la forme codee dun 
octet sur le disque. Ce co- 
dage esl necessite par le 
controleur de disquettes qui 




ne peut lire plus de deux bits 
a zero a la suite: ii faut done 
rearranger les octets entre 
eux pour placer des "1" ou il 
le faut. sans perdre trop de 
place. Je n'irai pas plus loin 
dans ce domaine. mais sa- 
chez que c'est pour cette rai- 
son qu'on ne peut pas lire di- 
rectement les donnees a 
partir du Nibble Editor; il faut 
un editeur de secteurs 
(comme Disk Fixer, CIA, tout 
ca, on en parlera plus tard). 
Le Nibble Editor permet de 
saisir et de visualiser une 
piste entiere. avec les parties 
portanl I'information, el 
celles concernanf le repe- 
rage de ces informations; on 
pourrait d ailleurs relever une 
interessante analogie avec la 
biologie moleculaire. mais 
nous nous eloignerions un 



peu trop du sujet. Qui est 
comment est formatee une 
piste ? Et comment se servir 
du Nibble Editor pour la co- 
pier ou la modifier, evenluel 
lement la reparer ? 
Tout d'abord, je vais rapi 
ment decrire un utilitaire r 
connu, le Quickscan, Si vous 
possedez Locksmith, vous 
avez surement essaye cette 
option qui trace de superbes 
lignes verticales, disconti- 
nues, au dessus des nume- 
ros de pistes, et auxquelles 
vous comprenez. .. disons... 
peu. Explication: les petits 
points blancs constituent les 
separations entre secteurs. 
que vous pouvez compter. 16 
secteurs pour le DOS 3.3. 13 
pour le 3.2 (mais tout est 
possible dans le domaine 
des protections); un debut de 
piste se reconnail a un 
groupe de trois ou quatre 
points. Maintenant que vous 
avez visualise le contenu 
dune disquette dans son en- 
semble, nous pouvons pas- 
ser au Nibble Editor. 
Prenez une disquette format- 
tee normalemenf et lisez une 
piste (ctrl H), Positionnez un 
des champs de FF en inverse 
video au centre de I'ecran, 
en vous servant des touches 
"," at ".". Ce grand champ 
correspond a un des points 
sur I'ecran du Quickscan. et il 
y en a un autre petit au-des- 
sous qui separe le champ 
adresse du champ donnees 
d'un secleur. Le champ de 
donnees. c'est la partie por- 
teuse d'information; le champ 
adresse sert au reperage par 
le DOS de ces donnees. Les 
FF en inverse video sonl des 
"octets" de 10 bits (huit "1" et 
deux "0") et servenl a mertre 
en phase la tete de lecture. 



Vous remarquerez, enca- 
drant chaque champ, des 
series de 2 ou 3 octets: OS 
AA 96, prologue du champ 
adresse, DE AA EB. epilo- 
gue. D5 AA AD. prologue du 
champ donnees, DE AA, epi- 
logue. Si un de ces octets 
manque, le DOS ne pourra 
pas lire le secteur. C'est 
pourquoi, dans certains cas 
oil le lecteur crachote un peu 
trop en chargeant un pro- 
gramme, il suffit de retablir 
ces series d'octets (c'est 
long: il faut verifier chaque 
piste), mais attention: sou- 
vent, la protection de la dis- 
quette change ceux-ci et il 
faut en tenir compte. De 
meme, le champ adresse 
peut etre endommage, et il 
vous faut decoder son 
contenu avec la table ci-des- 
sous. les octets etant codes 
sur deux nibbles dans i'ordre 
suivant; Volume. Piste. Sec- 
teur. Checksum de verifica- 
tion. Ouf. 

Je crois que vous n'aurez 
pas trop dune semaine pour 
digerer tout ca, et pour explo- 
rer vos disquettes. 
A bientot. 



QUE CHOISIR 



TS Software et Bubble Bus en 
lament le match de la senate 
avec deux produits si identi- 
quement semblables que ion 
se demande qui a copie ?...' 
I'autre. A ma gauche vous 
voyez Burnin Rubber (TSS). 
alors qua ma droite vous ape - 
cevez Bumping Buggies 
<BB). 



mm mm 



res rebondissent les unes 
contre les autres comme un 
t'oupeau de bal'es de ping- 
pong pes d hystene collective 
Troisieme diftic u lie : comme 
c'est <e pnntemps. certames 
zones de la route sont inon- 
dees par les rivieres du cru en 
cue. Qua In erne et derniere 
difficult6 le )eu est aussi mm- 
teressant qu'iniouab'e. Alors 
pourquoi en parter? Pour vous 
eviler d acheler le plus mau- 
vais des deux 




A la reflexion, \e me dis que 
non seulement ils ont copie 
I'un sur I'autre, mais en plus 
en plagiant (ires mal) Spy 
Hunter . jeu de cafe superbe 
adapte pour Apple recemment 
Revenons-en a nos Buggies: 
la seule action consiste a tenir 
un maximum de kilometres en 
poussant tous vos concurrents 
dans les ornieres sans renifler 
les paquerettes vous-meme. 
Facile. Premiere difticulte: la 
route n'est pas toute droite. 
Deuxieme difticulte: les voitu- 



Graphisme: 

Bumping Buggies: jolies cou- 

leurs. le reste nul. 

Burnin Rubbers: ca va. 

Animation: 

BB: nul. 

BR: mais c'est presque bon. ., 

Son: 

BB: super en intro, inexistant 

ensuite. 

BR: moyen. 

Conclusion nourissez done 

voire C64 avec autre chose 

(Boulder Dash par exemple). 

ou a la limite copiez Burnin 

Rubbers histoire de fa ire mu- 

muse trois minutes. 



AAAAAAAA 

DE DE 

DEMIR 

Ce nest pas le nouveau jingle 
de la pub sur Antenne 2 mais 
c'est de la pub quand meme. 
C'est Ademir, ia fifille a Micro- 
tek qui fete ses cinq ans en or- 
ganisant un salon "loin de la 
cohue des expositions officiel- 
les". C'est done en toute inti- 
mite que vous pourrez tripoter 
les "logiciels utiles pour la for- 
mation". Intimite toute relative 
d'ailleurs puisque ca se passe 
les 17, 1B et 19 Avril a la MAI- 
SON DES SCIENCES DE 
LHOMME (56. boulevard Ras- 
pail a Paris), puisque 4000 affi- 
ches de publicite pour cette 
manifestation egayeront les 
murs de la capitale et de la 
province et puisque 4000 gros- 
ses legumes du monde de I'ln- 
formatique y ont ete invitees. 




Chaude intimite en perspec- 
3 ! Vivent les associations 
< petils moyens ! Vive la loi 
de 1901 ! Vivent les subven- 
tions ! Vivent les droits de re- 
ponse et vive la France I 



STOP! 



Arretez tout ! Les lanas de 
Z80, les toques du 6502. les 
adorateurs du 6809: les 
petits gars, en verite je vous 
le dis: laissez tomber vos 
vieux micro-processeurs dont 
les pattes sont minees par 
I'artrite et dont les circuits ont 
oublie d'etre chebrans. II faut 
vivre avec son temps, plon- 
ger dans la modernite. pen- 
ser a lavenir, a nos enfants, 
el ne pas oublier de descen- 
dre la poubelle ce soir. II est 
temps maintenant de faire 
I'apprentissage du 68000. le 
premier processeur de la ge- 
neration des 32 bits qui 
rythme le Macintosh, le QL 
ou le nouvel Atari. Et pour 
cela, je vous conseille de 
vous plonger immediatemenl 
tout de suite dans lexcelleni 
ouvrage de C(hristine 7 ) 
Vieillefond ! paru chez 
Sybex: MISE EN OEUVRE 
DU 6B0OO. 

Nul n'eut ete capable aussi 
bien que Cfatherine ?) Vieil- 
lefond de decrire avec clarte 



et simpticile les m6canismes. 
instructions el autres modes 
dadressage du 68000. Le 
livre vaut pres de 200 balles. 
mais c'est un investissement 
rentable 




DEULIGNES HOUANE MAURE TAILLEMEUH ! 

Plus que jamais je ne peux que m'incliner devant le 
genie creatif. dont a lout instant, vous tenez a faire 
preuve: vainquant des Everests de difficultes. franchis- 
sanl des abysses rJe creativite sans souffrir un seul mo- 
ment du vertige de la creation de labsoiu.. Bravo ! 
Malgre tout, les Ihomsonistes maintiennent un fosse 
enorme dans la quantite de la production: a eux sculs ils 
envoient autanl de programmes que I'ensemble des mi- 
croisles. Etrange non ? A vous d'agir pour que ca 
change. 

Accessions maintenant, et ne vous plaignez pas si votre 
machine n'y figure pas. 

Benoil J0UAULT vous emmene sur les pentes neigeuses 
des Aloes. Voire droite se nomme P. alors que la gau- 
che sappelle Q et que la barre d'espace stabilise la di- 
rection 



Fabrice PAGE nous a envoye a lui tout seul onze deuli- 
gnes Voici celui qui nous a le plus plu. 

T Listing THOMSON 

e CLS:SCREEN3, 0, 0: ATTRB8, 1 : PR I NT : PR I NTTfl 
B «: 7 > f :C0LORe,3!PRIItT-PR0GROftl1E DE VOTRE 
C0RPSH0TOR! " s PRINT: COLOR l»8i PRINT 1 ' 
0US DONNE LE NQMBRE 0E METRES 
'3/ DUE C0HP0RTE VOTRE CORPS EN 
HON DE VOTRE TfilLLE ET DE VOTRE 
S. ':FlTTRB0,B 
1 PRINT:C0L0R2: IHPUT'Quelle taille >en c 
•/ i';T«ILLE!C0L0R5: INPUT"0uel poids 'en 
K») : ";P0IDS:D=TAILLE".725«P0IDS".<e 

5»!7184»lfl'--6>: PRINT: PRINT: C0L0R6: PR INT " 
fVAPRES Lfi FORHULE CE DUBOIS VOTRE CORPS 
FftIT";0) -NETRES CUBES. ■ : END 



CUBE 

F0NC 



HOME : PRINT *'i": PRIMT "SC 
0RE= ";S: CLEAR : GET At: PRIMT 
; PRINT *DIFFICULTE= ■(! GET 
A«:A = vftL <A»>;Q " 10:P • 
30 :V = 26:1 - - 143S4; HOME 
: FOR t = 1 TO 24: UTA8 I: HTAB 
Q: PRINT "*■;: HTAB P: PRINT 
• • ■ i : NEXT : 1/TAB I : HTAB U : 
PRINT *£*; UTAB tr HTAB M: GET 



2 ON ( SCRNC V 



J 0) GOTO 



MICROFER RECHERCHE DE 
NOUVEAUX WAGONS 



Ils sont deja plus de 12O0 a la 
queue leuleu sur la voie de 
chemin de fer Paris-Nice. Sa- 
chanl qu'en tendant les bras 
vers lepaule du membre du 
club qui le precede, un Micro- 
feriste mesure (en largeur et 
en moyenne) 87 centimetres, il 
faut 7.768.952 nouveaux adhe- 
rents pour relier les deux villes. 
Depechez-vous de les rejoin- 
dre, les passagers attendent 
pour vous marcher sur la tele. 
Depechez vous d'autant plus 
que les activites du club ne se 
limitent pas a ces |oyeux ebats 
ferroviaires: les cours d'imtia- 
tion au basic, les echanges de 
logiciels. les remises sur les 
achals de mate ri els et acces- 
soires et la revue Interface 
vous attendent. En plus, les 
cheminots ne sont pas racisles 
et acceptent les non-Sncf dans 




leur train du plaisir informati- 
que. 

Microler. 1 rue d'Alhenes. 
75009. Paris. Cotisation an- 
nuelle de 100 a 400 Irancs 
selon que vous soyez puissant 
cheminot nationalise ou mise- 
rable informaticien priv6. 



Enfin. Olivier TAIEB voit des elephants roses complele- 
ment a jeun II vous en fait la demonstration pour I'oeil 
el loreilte grace a UTOPIA. 

T Listing VIC 20 

1 X-X+IZ«INTCHND<;i)Nil00)-Z-Z+6-IFX«l50 
THENX-3 

2 P0KE368ee+2 . X : FORI "1 TO300 ■ NEXT ■ G0TO1 



Grand gagnant de la semaine. f rangois COfJSlANTV. 
empoche deux softs grace a sa fonction DELETE pour 
Commodore 84 en deuligne, mode d'emploi compris ! 

Listing COMMODORE 64 

1 PRINT"^BIBI"F-PRINT"F="F + r'-L-"L ,, -IFF< 
■LT ll«" P0KE198.2'P0KE631.13 P0KE632. 
13 i END 

2 REM 1HPE2 PRR EX EN MODE DIRECT F-100- 
L-150 ET GOTO J 



Bernard CHAUVIERE venait de s'offnr un Atmos lorsqu'il 
est devenu sourd. Ne pouvant s'acheter un sonotone. il 
- a bidouille I'Atmos. En voici le resultat 



T Listing CANON 

LPRINrCHR*(I8):FORI=2TD3l:FQRJ=0TO! 19: 
IFPOINTIJ, |)=0THENNEXTJ:NEXII:GOTO2 

1 LPRINT'TT jSTR*t J»4)i". ";STR*C- l*4):LPR 
INT' , J2,B.0.-2,-2,0,0.? ,, :NEXIJ:NEXT! 

Monsieur GIAftD, dont nous lairons le prenom. n'aime 



T Listing AMSTRAD 



T Listing ORIC 

1 F0RI-eT01?:REHDCi*:D0KEI*2+36e.V 
HLC "t»"*D* ~> -■ NEXT ■■ 00KE587 . 368 i P0KE58 
6.76^OPTflE00 

2 DHTH10. , F,8R48, 9848, HD48. 2UF . CF 
0, ?FZ9,628D i teB J ■ H'J6^, 2881 .Ffl^tj,H8 

f-.hi . HMl-JS . 4HS8 



1 PRINT 


c 


wrcK 




It 




1-1 TO 500 


NEXT 








2 OEF FN FCX 




V 




> mo 


INT FN F( 1 














Bien le bonjour chez vous et salul ben I 



HIPPOJOYST 

C'est Japonais, c'est un des meilleurs et des 
plus costauds que I'on connait: trois boutons 
de tlr, une bonne prise en mains et quatre ven- 
touses pour le colter definitivement sur la 
table de la salle a manger (Super pratique pour 
les repas '.). Prise standard pour Amstrad, 
Atari, Commodore 64, MSX, Vic 20. Compatible 
avec les interfaces d'Oric et de Spectrum. 
Pour Apple, Thomson et Texas, Tintin: ga ne 
marche pas ou alors II faudra bldouiller f 
Ah, au fait, c'est 100 balles... 
C'est bon, c'est pas trop cher ? Envoyez vos 
sous apris avoir rempli le bon de commande 
ghjoint. Le mlnlstre du commerce exterleur du 
Japon vous remercie bien bas. 




******** ** ***** 
Bon de commande a decouper et a renvoyer a 
SHIFT EDITIONS, 27 rue du General Foy 75008 
PARIS. 

Nom 

Prtnom 

Adresse 

DATE: PU=100F.x...= ....F 

frais {renvoi = +15 F 

cheque joint: TOTAL - ....F 



HEBDOGICIEL SOFTWARE 

Le logiciel a sa juste valeur 

Les nouvelles boites jaunes sont arrivees ! Six logiciels francais de qualite par cassette et un prix raisonnable : des 
produits signes SHIFT EDITIONS I 



"ITSST*** 



L'AVENTURE SUR ORIC 



p.ei 



e. Donjout les nulls blanches ! Vousai- 
tour a lour explorateur, espion. egyptologue. cosmonaule, super -he- 

s problemes de sante et sans troubles mentaux, vous deviendrez 
ile un des grands mailresmondiauiduj 
iquer pour 120 francs 



VotreOnculiltselelangage mac rime pour redecfiirei vous n'avei malbeureuse- 
men! que voire cerveau numain pour le batlreau Morpion ! Le'LabyS' quisuil 
n est pas plus facile : c i nq etages. des trappes pane utetsesascenseurs pas Ires 
■ '."i tiles ' Dans "Oil leak, vousdevez reparerunevoitureau beau milieu d eg ran 
des llagues d'huile Les goutlres, les ravins et lesprecipices de "Ponllevis" vont 
vous rendfe lou ! Le'Parsec"lonceS toulevitesseet la "Guerre nucieaire" est ^ 
tout simplement le premier grand Wargame pour One 120 francs la cassette ^ 



cuperer des fragments de enstat da 
le labyrinthe qui est le lieu a la moi 
pour lous les monstres branches di 



sionpenlleuse"qui v 

tueun tableau* 120 
en basic etendu. 



s transporlera 



>'jsrss& s ' 



SPECTRUM N-1 





voiladequoilairefretillerles electrons 
dans votre M05 et quand en plus ess 

sagerez quelques nuits blanches 
d'Othello. de Poker, de Memo 7... Des 


portable, parlez poi 
fond (Warp) ou retroi 
chier d'adresse|. Vo 


parailra insup- 
r I'espace pro- 


nencroifezpasplus 


os yauiquevo- 



*********** 
. BON DE COMMANDE A REN- 
* VOYER A SHIFT EDITIONS, 27 
+ rue du Gal Foy 75008 PARIS. 



»'3S"S"*" 



BASIC ETENDU 



' Sm supei program- 






langage nucn -e Viennenr ensuitela 
reflexion avec Puwie" et la stategie 
avec"Mmeur ou vous pounez organi- 
ser des competitions jusqu'a 5 
loueurs L'aventure enlin avec "L inca 
dor", un fabuleux ieu grapriique en 3 
dimensions 6 super-programmes 
pour 120 francs 




REGLEMENT JOINT:. 



DEUX SUPER-CONCOURS PERMANENTS 

20 000 francs de prix au MEILLEUR LOGICIEL du MOIS et un VOYAGE Dour 2 
personnes en CALIFORNIE au meiileur logiciel du TRIMESTRE. 



Un concours de plus! 
Rlen de blen original dans 
cette forinule, pourtant nous 
essayons de talre quelque 
chose de different: nous orga- 
n I sons un concours perma- 
nent tous les mois et tous les 
trlmestresl Et avec des prix 
dig nee des programmes que 
vous allez nous envoyer! 
De plus, ce seront les lecteurs 
oux-niemes qui vote ion t pour 
leurs programmes preferes 
sur la grille recapitulative 
mensuelle. 

Pas de |ury, pas oe decision 
arbitralre, HEBDOGICIEL n'ln- 
tervenant que dans le cholx 
des programmes qui devront 
etre ORIGINAUX et FRAN- 
CAIS. SI votre programme 
n est pas tout a fait au point, 
un de nos special fetes vous 
dlra comment 1'amellorer pour 
pouvolr nous le proposer a 
nouveau. 

Pour particlper, II vous surf it 
de nous envoyer vos pro- 
grammes accompagnes du 
bon de participation alnsi que 
toutes ies explications neces- 



salres a ('utilisation de ce pro- 
gramme. 
Bonne chance! 

Reglemenl: 

ART.1: HEBDOGICIEL organise 
de facon mensuelle el tnmes- 
tneile un concours dote de prix 
recompensant le meiileur logiciel 
du mois el du tnmestre. 
ART. 2: Ce concours est ouverl 
a tout auteur de logiciel quelque 
soil le materiel sur lequel il est 
realise. L'envoi dun logiciel en 
K7 ou disquette accompagne 
dun bon de participation de- 
coupe dans HEBDOGICIEL 
constitue I'acte de candidature 
ART.3; La redaction d'HEBDO- 
GICIEL se reserve le droit de 
selectionner sur la base de la 
qualite et de loriginalite les logi- 
ciels qui sont publies dans le 
iournal. 

ART 4: Ce sont les lecteurs qui. 
par leur vote, determinent les 
meilleurs logiciels mensuels et 
trimestriels. 

ART. 5: Le prix alloue pour le 
concours mensuel sera remis au 
plus lard un mois apres la clo- 
ture du concours mensuel. 



ART. 6; Le prix alloue pour le 
concours trimestriel sera remis 
au plus tard un mois apres la 
cloture du concours trimestriel 
ART. 7: Le present reglement a 
ete depose chez Maitre Jauna- 
tre 1 rue des Halles 75001 
PARIS. 

ART.8: HEBDOGICIEL se re- 
serve le droit d'interrompre a 
tout moment le present 
concours en avisant les lecteurs 
un mois avant. 

ART.9: La participation au 
concours entraine I' acceptation 
par les concurrents du present 
reglement. 



Sera declare gagnant le pro- 
gramme qui aura obtenu le 
plus fort pourcentage de vote 
par rapport a la Iota lite des 
programmes -ecus pour un 
meme ordlnateur. 
Alnsi, pas de favoritisme pour 
les ordlnateurs plus puissants 
ou tres diffuses. 



BON DE PARTICIPATION 



Prenom 

Age Profession 

Adresse 

N telephone 

Nom du programme 

Nom du materiel utilise 

declare elre I auteur de ce programme qui n est m une imitation ni une 
copie dun programme existant Ce piograrrime reste ma propnete et 
I autonse HEBDOGICIEL a le publier La remuneration pour les pages 
pubhees sera de 1000 francs par page tun programme n occupant pas 
une page entiere sera remunere au prorata de la surface occupee) 

Signature obiigatoire 

(signature des parents pour les mmeurs) 

Le programme don etre expedie sur support magi.etique [cassette ou 
disquettel accompagne dun descnptif detaiije du materiel utilise, 
d une notice d utilisation du programme Les suppods des program- 
mes publies sont conserves n oubliez done pas d en (aire une copie 






N"70 


N'71 


N" 72 


N' 73 


APPLE II 


COMPOSITION 


COMPOSITION 


PLANET! BLEIIE 


PLANETEBLEUE 


CANON X-07 


MINE HANTEE 


SEAWAR 


EUDIPE 


PAINTER 


CASIO (1 CO! P 


UUAORILETTE 


CHATEAU FORT 


01 TEXT 


01 rrxr 


COMMODORE 134 


COLOMBIA 


IMPRIM If II 


GHOST CASTLE 


QUICKI 


COMMODORE 

vic 20 


STAR WARS 


ROBINSON 


JOY'S PEN 


HANTEO 


HECTOR 


IEN THOUSANDS 


IEN THOUSANDS 


TAB 


TAG 


atari 


DOAMNOS 


ALIEN 


RALLY 


MINEJB 


ORIC 


ROULETTE 


CITE INTERDITE 


CITE INTERDITE 


BOITf A RYTHME 


•IL IOC 


L-flOC EN POMME 


TMSMO 


JACK 


CARACTERES 


SPECTRUM 


SCHLIflPS 


SPACE MISSION 


UFO I 


JO. 


2X81 


PEEP LUNAIRE 


DESSIN ANIMF. 


WURS 


NIGHT FLYER 


msec 


SATELLITE 


HELP 


DEVIN0S 


TRAPPES 


II 99/4A 
(basic simple) 


OR FEEL GOOD 


LECUBE 


S0L5-MARINS 


LUCKY BUCK 


Tl 99/AA 

(banc elcnDu) 


KAMIKAZE 


MINI-GOLF 


ATOME HIC 


TIR SPACIAL 


107 


PUNETES 


INDIANA 


INDIANA 


SEQUENCED 


AMSTRAO 


DAO 


TENNIS 


METEORES 


ESCAM 


MSX 


MARS LANDING CONSTRUCTION 


JIMMY DUES' 


COMBAT 



■ I IV I IDHCC I pas bien 9 rave! Toutelois. tou- ORIGINAUX du BULLETIN de 
MUA UHRCv ■ l° LlfS dans un souci d eguitfj. VOTE: pas de photocopies, 
^^^^^^^^^^^^^^^^^ nous n acceplerons que les cela serait trop facile! 

Date limite d'envoi du bulletin de vote le Jeudi 
21 Mars a minuit. 



Abandonnez quelques instants 
vos claviers et prenez votre 
plus belle plume pour remplir 
le bulletin de vote ci-contre. La 
redaction dhebdogiciel compte 
sur vous! 
La marche a suivre est simple: 

- Reperez dans la grille ci- 
contre le programme pour le- 
quel vous voulez voter ainsi 
que celui pour lequel vous 
votez en second (le second 
nous permettra de rendre plus 
equitable la tormule de choix 
du gagnant). 

■ Reportez le nom de ces deux 
programmes sur le bulletin de 
vote. 

- Inscrivez vos nom et adresse 
sur le bulletin de vote. 

A renvover avanl le 21 Mars 
1985 a minuit a HEBDOGICIEL . 
concours mensuel. 27 rue du 
General Foy 75008 PARIS. 
II est fort probable que ceux 
qui participent au concours fe- 
ront voier leur papa, leur 
maman, leur cousine el la tola- 
lite de leurs amis et relations 
pour leur programme. Normal! 
Mais comme chacun d eux 
fera la meme chose, cela n est 



BULLETIN DE VOTE 



A renvoyer avant le 21 Mars minuit a HEBDOGI- 
CIEL. concours mensuel, 27 rue du General Foy 
75008 PARIS. 

JE VOTE POUR LE PROGRAMME SUIVANT: 
NOM DE LORDINATEUR: 

NOM DU PROGRAMME: 

JE CLASSE SECOND LE PROGRAMME SUI- 
VANT: 
NOM DE LORDINATEUR: 

NOM DU PROGRAMME: 

NOM ET PRENOM: 

ADRESSE: 




ORIC ATMOS 

VENDS ORIC + K7 jeux + 
livres + documentation + inter- 
face joystick: 1500 F. + lecteur 
de disquette + 6 disques: 3200 
F, + magnetophone K7 * cor- 
don: 300 F. + imprimante SEI- 
KOSHA GP 50 + cordon: 1200 
F. Patrick BARTH. 3 rue de I'lle 
de France 91330 YERRES. Tel: 
948 00 14. 

VENDS ORIC 1 + 20 K7 ■+■ pe- 
ritel + MOD. NB. + livres et 
revues: 2000 F. a debattre. 
VENDS collection HEBDOGI- 
CIEL N° 1 a 40: 100 F. M. BER- 
GOUSNOUX. Tel: 782 39 16. 

VENDS ORIC 1 Peritel + 25 lo- 
giciels de jeux + 1 Assembleur 
Desassembleur + magneto K7 
+ 3 livres + cordons K7 e! 
PAL.: 1700 F. Tel: (42) 58 55 
20. 

VENDS ORIC ATMOS ayant les 
2 memoires modes + cordon 
peritel + alimentation - 2 ma- 
nettes de jeu avec interlace S- 
60 logiciels et 3 copieurs: 3500 
F. Claude CROCE. 25 chemin 
de Heredia 31500 TOULOUSE. 
Tel: (16 61) 58 42 85. 

VENDS ORIC Atmos 48 KO - 3 
K7 + 10 jeux [sous garanliel 
Prix 2500 F (a debattre) SA- 
LAUN Michel 10 rue pierre de 
coubertm 22190 Plerin Tel M6 
96) 74 60 50 



VENDS PC 1500 + nombreux 
programmes + 3 manuels : 900 
F. Tel : (20) 85 72 18. 

VENDS SHARP PC 1251 + CE 
125 + interface magneto + 4 
mini K7 * malette de transport 
- nombreux programmes + la 
decouverte du PC 1251: Le tout 
pour 2000F. Telephoner au 
207.35.08 de I3ha I8h. 

STOP AFFAIRE. VENDS 
SHARP 1401 avec manuel 
destruction et programme + 
garantie 1 an: 900F. Tel: 
203.24.01. 

VENDS SHARP PC 1500 + mo- 
dule 8K. Parfait etat. Notice an- 
glaise et francaise. Housse. 
Nombreux programmes fournis" : 
1400F. VENDS TI59 + manuels 
+ 60 cartes magnetiques dont 
40 pre en registries. Necessite 
un changement des accus: 
350F.Tel :(93).85.49.50. Guil- 
laume. 

VENDS ORDINATEUR DE 
POCHE SHARP PC 1212 + Im- 
primante SHARP CE 122 + Do- 
cuments initiation au basic + jeu 
adapte et programmes scientifi- 
ques (facultatif) :700F (achat 
Janvier 84, neuf). Mr FLATTOT 
Christian, 9 rue Gambetta 83400 
HYERES ou telephoner au 
16.{94).35.62.S8. 

VENDS SHARP PC 1245 + ma- 
nuel : 600 F. Francois GUIGON. 
Hameau le Chateau 69470 
COURS LA VILLE. Tel: (74) 89 
75 60. 



SPECTRUM 

VENDS pour SPECTRUM 48K 
10 K7 de jeux : 200 F. + 4 
livres : 100 F. Thierry GRE- 
GOIRE. 5 rue des Cedres. 
33170 GRADIGNAN. Tel: 16 56 
89 61 00. 



VENDS ZX SPECTRUM 48K 
avec interface Peritel : 1000 F. 
+ microdrive avec son interface 
ZX81 : 1300 F. t imprimante 
SEIKOSHA GP 505 papier ordi- 
naire : 1000 F. + manette avec 
son interface : 250 F. + 1 1 
livres + 14 K7 : -30 %, Tel: 327 
22 10, 

VENDS SPECTRUM 48 KO 
(SINCLAIR) + Pal Peritel * 
UHF NB. + synthese vocale t 
environ 30 jeux : 2500 F. Tel: 
642 70 57. 

VENDS SPECTRUM + Peritel : 
1800 F. + interface + joystick : 
250 F. + 75 K7 : 50 F. piece * 
interlace ZX1 + 1 microdrive I 
1100 F. + un 2eme microdrive : 
400 F. + un magneto : 350 F. + 
1 moniteur couleur : 1600 F. ou 
le tout : 8600 F. Tel: 254 07 12. 
Apres 18H30. 

VENDS SPECTRUM 16 KO + 
manuel basic + cables magneto 
+ programmes K7 + TV. NB. + 
interface NB. avec cable : 1950 
F, Tel: 032 55 54. 

VENDS SPECTRUM 48 K + 
Peritel + livres + environ 40 
programmes + emballages 
1500 F. Tel: 329 65 76. 



TRS80 

VENDS TRS 80 mod. 3 niv. 2 + 
nombreux jeux + livres -t- K7: 
Prix a debattre, Olivier LE- 
MAIRE. 7 rue des Rossignols 
6110 MONT LE TILLEUL. BEL- 
GIQUE, Tel: 51 60 76 071. 

VENDS TRS 80 mod. 3 niv. 2 + 
nombreux jeux + livres + K7: 
Prix a debattre. Olivier LE- 
MAIRE. 7 rue des Rossignols 
6110 MONT LE TILLEUL. BEL- 
GIQUE. Tel: 51 60 76 071. 



VENDS TSRS 80 mod III * ma- 
gneto + cordon d+ nombreux 
programmes : 5000 F. Tel: 366 
57 15, Apres 17H. 



VENDS PROF 80 compatible 
TRS 80 Mod 1 + RS 232 + pa- 
rallel + 1 ou 2 drives + dou- 
bleur de densite f- 1 50 disquet- 
tes DF DO + ecran vert + 2 
claviers + tous langages + tous 
Dos + logiciels de jeux et pro- 
fessionnels - CPM 22 + 18 
classeurs de doc: avec 1 drive : 
8000 F. avec 2 drive : 9000 F. a 
debattre avec violence. Tel: (42) 
82 30 06. 

VENDS TRS COCO 2 16 K + 
BE. ■* microsoft + graphique 
couleurs + K7 de jeux + joys- 
tick + peritel + cable magneto 
et alimentation integree : 1700 
F. Guy SERRES. Tel: 089 01 
14.(NDLNC : Je suis d'accord 
pour te rencarder et te faire visi- 
ter Paris mais tu peux amener 
ton beaut si tu veux. plus on est 
de lous plus on rit ! I) 



Tl 99 

VENDS Tl 99 + BE. + cable K7 
+ manettes + 3 modules (Car 
wars, Tl Invaders. Tombstone 
City) + 3 livres de programmes 
: 1700 F. Tel: 975 90 82. Apres 
19H. 

ACHETE pour Tl 99 : mini me- 
moire + manuel : 4000 FB, + 
module Parsec : 1000 FB. + 
Synthet. Parole : 2500 FB. 
Andre LAMBERT. Thiers Hubiet 
4 6930 GRUPONT. BELGIQUE. 
Tel: (084) 36 66 70. 

VENDS Tl 99 + magneto Tl + 
BE avec manuel en francais et 
en anglais + memoire + exten- 
sion 32 K + manettes + 5 mo- 
dules de jeux + livres sur Tl : 
4000 F. Tel: 960 90 37, 
VENDS Tl 99 + cordon K7 -t- 
double joystick + Parsec + 
Munchman + Tl Invader + Car 
Warsd+ Tombstone + 130pro-< 
grammes : 2400 F. (possibility 
de venle separee). M. ASSENS. 
10 bis rue Evariste Galois 11000 
CARCASSONNE. Tel: 16 68 25 
49 68. 



VENDS Tl 99 + Peritel + BE. + 
magneto + cordon magneto + 
manettes jeux + modules + jeux 
+ manuels + nombreux pro- 
grammes : 2000 F. Tel: 16 (55) 
77 03 31. Apres 19H30. 

VENDS BE. + manuel anglais 
francais pour Tl 99 : 650 F. * 
programmes en Tl Basic pour Tl 
99 : 100 F. Tel: 354 31 76. 



VENDS Tl 99 + magneto + BE. 
* mini memoire + manettes de 
jeu + K7 de jeu et cartouches : 
3000 F. a debattre (possibilite 
de vente separee). Tel: (35) 44 
50 96. 

VENDS Tl 99 + prise Peritel - 
BE. + Pole Position - Ti Inva- 
der + technique des program- 
mes de jeux n° 1 et 2 - Basic 
par soi meme + moniteur jaune 
BMC + manette + K7 HEBDO- 
GICIEL SOFTWARE N° 2 + 
livre de programme : 4500 F. 
860 97 12. Apres 18H. 
VENDS Tl 99 + Peritel + BE. + 
boftier d'extension + carte peri- 
pherique + lecteur disquettes + 
carte contr6leur + extension 
memoire 32 K + RS 232 et pa- 
rallel + doc. + programmes + 
livraison gratuite selon region : 
5000 F. a debattre (possibilite 
de venle separee). Tel: (79) 85 
30 85. 

VENDS Tl 99 + Peritel + ma- 
nette + interface + 3 livres + 
magneto + K7 Lunar Lander II : 
1200 F. Tel: 411 27 40. 
VENDS Tl 99 + magneto + cor- 
don K7 + joysticks + BE. + 8 
modules + K7 (jeux initiation) + 
import ante documentation + 
programmes : 3500 F. Frederic 
VIRET. 33 rue du 11 Novembre 
69800 SAINT PRIEST. Tel: (7) 
820 00 47. 

VENDS pour Tl 99 mini me- 
moire + K7 Assembleur + ma- 
nuel francais: 800 F. Tel: (99) 
57 92 16 



VENDS Tl 99 + prise peritel + 
magneto + cable K7 + BE + 
synthetiseur de parole + manet- 
tes de jeux + module "Moon 
Patrol" et "Retour du Pirate" + 
"Lunar Lander" 4- nombreux 
jeux: 3000 F. M. BASTIEN. 45 
boulevard st martin 75003 
PARIS. Tel: 887 71 11. le soir. 

VENDS Tl 99 + BE + manuel 
en francais + cable magneto + 
"le basic par soi -meme" + peri- 
tel + 5 K7 de jeux: 2300 F. Fa- 
tten COUTANT. Catteville 
50380 ST PAIR SUR MER. Tel' 
(1)90 64 96. apres 18 H. 

VENDS Tl 99 - cordon ma- 
gneto - magneto + manettes + 
BE * manuel + 4 modules 
(Foot. Munchman. Treasure, Is- 
land, Burgertime) + Lunar Lan- 
der - 3 livres - Solar Systeme: 
(Valeur 4400 F.) vendu: 3200 F. 
Herve LEDJAM. Tel: 856 63 19. 
apres 18 H. 

VENDS Tl 99 + BE + manuel 
+ manettes + 3 K7 aide pro- 
grammation + Mash + S.D At- 
tack + Wumpus + S. Systeme 
+ L. Lander + 3 livres + 50 
programmes sur K7 + cordon 
magneto: (Valeur: 3682 F ; ) 
Vendu: 2500 F. M. HOUDE. 5 
rue Roland Garros 34470 
PEROLS. Tel: 16 (67) 50 02 40. 

VENDS Tl 99 + manettes + 
cable K7 + BE + Parsec + In- 
vaders + Rubis + Pirate (M + 
C) + basic par soi -meme + 8 
livres (exercices jeux + 100 pro- 
grammes): 2800 F. Bernard 
CANCETTE. 17 chemin de la 
grange 69680 CHASSIEU. Tel: 
f7) 233 02 25 

. VENDS Tl 99 + 9 modules et 
livres: 2200 F. + boftier exten- 
sion avec controleur et lecteur 
de disquettes: 5000 F. + BE.: 
500 F. + mini memoire: 400 F. 
+ Editeur Assembleur: 400 F. 
Yves HABER Tel: 16 (38) 35 04 
18. apres 19 H. 



?6? S \- l D '. re d un mec 9 U ' avait P lein d e logiciels en stock, meme qu'il arrivait pas a les vendre tous. Les essayeurs fous d'Hebdogiciel les avaient testes, avaient 
seieciionne les bons. les marrants avec des jolies jaquettes et des modes d'emploi en frangais. Et comme le mec il voulait sen debarasser, Hebdogiciel a rachete les 
meiiieurs pour une bouchee de pain brioche. Hebdogiciel, il les a maintenant dans son slock a lui et il les vend a un prix meme les anglais en ont jamais vu comme ca ! 
uomme a habitude, vnus envoyez vos sous au General Foy et vous crtez le plus fort possible: "Merci. I HHHebdo" !". 




60 FRANCS? CAVA PAS LA TETE! 




SPECTRUM 

BLADE ALLEY 

Secteur mal lame attend liberateur au grand 

coeur Ne pas oublier son laser lourd. 

CENTI-BUG 

Centi = centi. bug = pede ! 

PEDRO 

Tot grand jardrnier, moi petite fourmi. Moi 

manger fleurs a tor. toi defendre plantations ? 

ZOOM 

Beau, tres beau, Our. Ires dur. Genial et pas- 

stonnant. un vrai [eu de cale. 

STONKERS 

La guerre a deux, c est quand meme plus 

drole que tout seut 

ALCHEMIST 

A la poursuite de la pierre philosophale. vous 

perdrez plus dune lois la vie. mais pas la 

passion. 

BEAR BOVVER 

A la poursuite de la pile perdue pour voire 

non eleclnque. laussi sur Commodore) 
JAWZ 

Comme toul bon requin qui se respecle, la 
laim vous fait sortir du Pois. Plein de pois- 
sons dans le viseur vous remonterons le 
moral 

LES FLICS 

Un diamani comme la panthere rose, ?a vaut 
pien quetques meurtres non 7 
APPLE JAM 

La boulimie vous guette, mais le sauna vous 
attend Oul ' 



STARBLITZ 

Vite et bien a I'assaut des galaxies ennemies 

ZX81 



DALLAS 

Coulez les Ewmg grace a vos puits de pe- 
trole. 

CORN CROPPER 

Le mais c'est du ble en puissance A vous la 
fortune ! 
GALAXIANS 

Piou piou ! Ca vaut nimporte quel Space In- 
vaders et ca marche sur ZX I (aussi sur 
Spectrum) 
3D GRAND PRIX 
Pole position pour ZX. ca existe. La preuve ( 

COMMODORE 



KRISTAL OFZONG 

De lavenlure. des epees, des monstres. des 

tresors et lout au joystick Un must absolu 

DEFENDER 64 

Mieux quau cafe, sans eflort. Ihumamie a 

sauver. Une paille a trouver dans une tonne 

d'aiguilles. 

ORIC 



LIGHT CYCLE 

Des motos et des hommes dans un univers 
electromagnetique. Des vibrations angoissan- 



LES SUPER-METEORES 

Votre vaisseau dispose de quoi faire sauter la 
moitie de la galaxie. mais vous devez d abord 
traverser ces putains de champs dasteroi- 
des. Dur. tres dur ! 
ARENA 3000 

Vous etes presque aussi baleze que Super- 
man et Goldorak reunis mais tous. absofu- 
ment tous les occupants de cette arene vous 
en veulent a mort. 
SCUBA DIVE 

Les nuilres c est bon pour le palais. mais les 
pedes c'est encore meilleur pour te porte- 
monnaie. (aussi sur Spectrum) 
CENTIPEDE 

Grand classique. Innenarable ! (aussi sur 
Commodore) 
THE ULTRA 

Malheureusement. il ne sail compter les ta- 
bleaux que jusqu a cent ! 
ELEKTRO STORM 

Grace a Dieu. vous disposez encore de quel- 
ques teles nucleases pour proteger volie 
"Home sweet home' Une chance, non ? 
LA REVANCHE DE DRACULA 
Que vous luiez les loups-garou. les vampires 
ou les goules. le meme cri resonnera annon- 
tjant voire dispanlion prochame: 

AHOOOOUUUUU ' 
LEGEANTDE GLACE 
N a pas des pieds d argiie. mais si vous vous 
appelez David vous I'aurez ce Golialh 
M.A.R.C. 

MARC pour Maman les Aliens Recommen- 
cent leurs Connenes" Infernal et genial 
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VENDS Tl 99 t- cable K7 + BE 
+ divers livres: 1000 F. poss. in- 
terlace CGV (peritel secam). 
Tel: (3) 956 03 40. Apres 18 H. 
demander Marc. 

VENDS Tl 99 - manettes de 
jeux + documental ion et 5 logi- 
ciels (Parsec. Munchman. Car- 
wars, Echecs. Alligator mix) : 
1200 F. Tel: (20) 76 73 34. 
Apres 1SH. 

VENDS Tl 99 Peritel * cable 
magneto + magneto * housse 
pour le Tl * manettes de jeux + 
Mini memo. + BE. + manuel 
Assembleur i modules (Ti Inva- 
ders, Football. Car Wars, Driving 
Demon, Pole Position) + nom- 
breux jeux en Tl Basic et X 
Basic sur K7 dont le simulateur 
de vol "Manasco Aeroplane" en 
basic el assembleur: 3800 F. S. 
MESUREAU. 71 rue ST Michel 
37170 ST AVERTINK. 

iNDLNC: arrete de t'inquieter 
pour la J.C., a partir de mainte- 
nant, tu dois t'inquieter pour 
moi, pas tou jours la memef! 
C'est toujours pour elle et 
jamais pour moi, je vais finir par 
me w 



'!) 



VENDS Tl 99 - interface secam 
+ cable K7 + 2 joysticks t- BE 
+ Assembleur • 25 jeux en car- 
touches et en K7 dont: (Parsec. 
Ti Invaders, Frogger. Le Rubis 
Sacre. Lunar Lander. Tombs- 
tone City etc..) + 6 livres dont: 
"la conduite du Tl 99", "initiation 
a I'assembleur sur Tl 99", "prati- 
que de I'ordinateur Ti 99", + 4 
autres K7 * nombreux listings: 
3100 F. Michel OEGENNE. 35 
rue Paul Louis 60600 CLER- 
MONT. Tel: 16 (4) 450 07 57, 

VENDS Tl 99 * cable magneto 
+ manettes de jeux + modules 
BE., Mini memory * modules de 
jeux (Parsec, Munchman, Inva- 
ders, Super Demon, Burger 
Time, Pole Position) + 50 jeux 
sur K7 (Basic et Assembleur) + 
Q'Bert + livres - revues specia- 
lises: 4000 F. Xavier EHR- 
LICH. 24 rue Pierre Robin 
69007 LYON. Tel: 869 OB 75. 
apres 20 H. 



VENDS pour Tl 99 BE. + ma- 
gneto TEXAS + cordon K7 + 
manettes de jeu + Lunar Lander 
+ Tombstone City * K7 HEB- 
DOGICIEL N° 2 & N° 4 * livres 
et manuel ^ K7 A tous les pro- 
grammes d'HEBDO pour 
TEXAS: 1500 F. Chnstophe 
GAY. 26 rue d'Edimbourg 75005 
PARIS. 

VENDS Tl 99 - cable magneto 
* module Burger Time + cable 
moniteur + K7 jeux + magneto: 
1000 F. Adnenne BRUCE. 8 rue 
de I'Oise 95430 BUTRY S OISE. 
Tel: 473 12 92. apres 19 H. 

VENDS Tl 99 *■ alimentation - 
peritel: 1100 F. - cordon ma- 
gneto: 50 F. + magneto (radio 
K7): 400 F. * manuel: 10 F. + 
manettes: 150 F. + BE.: 500 F. 
+ Tunnels ot Doom: 300 F. • 
QBert: 180 F. + Moons Wee- 
per: 150 F. + Star Treck: 100 F. 
+ 200 programmes K7: 250 F. 
+ Tractor's Folie: 30 F. + K7 
promo publication: 30 F. * 3 
livres: 100 F. + nombreux lis- 
tings: 20 F, ou le tout: 3000 F. 
au lieu de 4625 F. Tel: 735 92 
60. Demander Vincent. 

VENDS BE (trangais): 600 F, + 
Solar systeme: 70 F. +■ Lunar 
Jumper: 70 F. * Tractor Folie: 
65 F. + King Kong: 65 F. + 
Global Rescue: 90 F. + Rubis 
Sacre: 50 F. + HEBDOGICIEL 
Soft n° 3: 60 F. ^ 30 program- 
mes: 10 F. piece ou le lout 950 
F, JM, ATTIMONT. 31 bis rue 
Kleber 83200 TOULON. Tel: 
(94) S62 34 46, (NDLNC: dis 
done, toi la!! Tu s'rais pas en 
train d'les copier tes program- 
mes, pour les vendre a ce prix 
la. truand va ! ! !}. 

VENDS Tl 99 - manettes de 
jeux + Peritel + cordon K7 + 3 
modules (Car Wars. Wumpus, 
Indoor Soccer) + K7 de jeu 
(Splat, Poker etc..) + K7 le 
basic par soi-meme + livre de 
programmation tome III: 1600 F. 
Jean Michel LOBOLAK. 13 rue 
Gaston Appert 92390 VILLE- 
NEUVE LA GARENNE. Tel: 798 
18 13. 



VENDS Tl 99 -t BE + peritel 

- magneto K7 + cable magneto 

- adaptateur UHF secam + ' 
avec programmes BS et 
2500 F. Patrice RUBIO. 4 
Verte Vallee 64000 PAU. 

VENDS Tl 99: 1000 F. + i 
dule BE + manuel: 500 F. + 
tension Ram externe 32K: r 
F. + magneto PHILIPS D 6600 
+ cable: 550 F. + 1 paire de 
joysticks: 150 F. + nbx livres et 
K7 (jeux, utilitaires,...) ou le tout 
pour 3000 F. avec livres et K7. 
Bertrande DELESTREZ. 4 rue 
Grissom 62210 AVION. Tel: (21) 
28 221 75. 

VENDS Tl 99 + cable K7 + 
module BE (Echecs, Ti Inva- 
ders) + manettes + K7 Lunar 
Lander + nbx listings + livres: 
3000 F. JF. REGINSTER. 63 
rue de la Motte 5200 HUY. BEL- 
GIQUE. 

CHERCHE pour Tl 99 boitier 
extension + controleur de dis- 
quette + unite. Marc PETIT. I_e 
Bois Noel 43500 CRAPONNE 
SARZON. 



CHERCHE ZX 81. Jean-Luc 
MONTAGNER. ENM-EDF 

Gurcy-Le-Chatel BP7 77520 
DONNEMARIE DONTILLY. Tel: 
067 32 32. 

VENDS ZX 81 16 KO avec cla- 
vier mecanique + magneto- 
phone + livres + K7 de jeux : 
900 F. Guy GORBIN chemin 
des rochers 74100 ANNE- 
MASSE. Tel: (50) 37 51 27. 

CHERCHE logiciels pour ZX 81 
16 K METZ et environs. Pascal 
HUART. Tel: 777 41 88. 

VENDS ZX 81 + clavier + lec- 
teur de K7 + 16 K + TV. NB. 
etat neuf + 1 livre ( 50 program- 
mes pour ZX 81) + une cas- 
sette de 60 programmes. Le tout 
1500F. LEE. La solidahte. BT 
N24 RC chemin de la bigotte. 
13015 MARSEILLE. Tel: 
51.86.03. 



VENDS ZX 81 16 K + livres + 
K7 : 1500 F. Jean Marc VIL- 
LOIN. 51 Avenue de Villelran- 
Che 41200 ROMORANTIN. Tel: 
(54) 76 61 56. 

VENDS ZX 81 + Extention 64 K 
+ Clavier ABS + Tele NB. 56 
cm + loutes liaisons + livres * 
K7 programmes : 1500F a de- 
battre. Rene GIRARDOT. 47 rue 
de la ierme 91400 ORSAY . Tel 
:(6) 446.61.61 (apres 19 heures 
ou le week end). 

VENDS ZX 81 Sinclair complet 
+ clavier ABS + nombreux pro- 
grammes (+ de 100) -t- 3 K7 de 
jeux. Le tout en Ires bon etat 
(valeur 1150F). Vendu 950F 
Demander Thierry au 594.79.44 
(apres 18 heures). Mr LETHI- 
MONNIER . 1 Square Auguste 
comte . CHENNEVIERES 
MARNE. 

VENDS ZX 81 + 16 KO + cla- 
vier ABS + 2 livres ( 70 pro- 
grammes pour ZX 81, manuel 
de futilisateur du ZX 81 ' 
dons + 2 K7 (valeurs 1400F) 
vendu 900F a dbt.Tel 
:(16.41)61. 12.92 (heures 
repas) (les deux k7 sont 
MAZOGS, COBALT. 

VENDS ZX 81 + 16 KO + Cla- 
vier mecanique (ABS) + Chess 
+ Stock + Car simulateur cobalt 
+ Patrouille de I'espace + Ty- 
rannosaure rex + Scramble + 
Pilote + Space Invaders (HRG) 
■t Walkers + Echecs + Fire 
Fox + Pac Man + Othello + 7 
livres. Le tout au plus offrant. 
HENRY J.L 2 rue Paul Verlaine. 
83700 ST RAPHAEL. Tel :(94) 
95.26.22) apres 19 heures. 

VENDS ZX 81 16 KO + Clavier 
ABS + inversion video + 9 
livres sur ZX 81 +8 numeros 
ORDI 5 + 100 Listings + 15 K7 
avec environ 80 programmes 
:1000F (a debattre). Mr WEBER 
Patrick. 12 rue principale. 57450 
DIEBLING. Tel :(8)702,45.52 
apres 17 heures et week end, 

VENDS ZX 81 16 K + cassettes 
+ livres + magnetophone : 
800F. Tel :849.56.95 



VENDS ZX 81 + 16 KO 4 Cla- 
vier ABS + 2 K7 (Chess. Pa- 
trouille de i'espace): 
850F. Christian VIDAL. Tel: 
(16.93)46.20.83 

VENDS ZX 81 + EXT.64 K -f 
Imprimante - 8 K7 de jeux et 
utilitaires * prise magneto 
livres de programmation 
revues diverses, (valeur 3200F) 
Vendu 2500F (a debattre). HU- 
CHET Olivier. 22 avenue Palton 
Saint Brice. 77160 PROVINS. 
Tel :40R.95.56. 

VENDS ZX 81 - 16 K RAM -r 
Clavier Pro (DKTronics) + 3 
livres programmation -t- 3 cas- 
settes jeu. Valeur 1800F vendu 
1000F. Patrick PAYRAU ST 
GAUDENS. Tel :16 (61) 
89.15.11 et 95.06.52 apres 19 
heures. 

VENDS ZX 81 + alimentation + 
cordons + manuel * memoire 
32K - clavier ABS + interface 
manettes de jeux + imprimante 
thermique + 1 dizaine de pro- 
grammes sur K7 + 1 vinglaine 
de programmes sur listing (le 
tout avec facture) : 1850 F. Tel: 



Pour ZX 81. CHERCHE pro- 
gramme de jeux Center attack 
pour remplacer ma cassette de- 
fectueuse. Programmes en re- 
compense. Olivier BRACQUE. 
12 bd. de Lancelot 07000 
PRIVAS. 

VENDS ZX 81 + 16 K + Inter- 
face manettes + carte son + 
carte 8 sorties + nbx livres et 
revues + nbx programmes 
2000F. Tel :(43) 94,37.08 
(apres 19h). 

VENDS ZX 61 + 16 KO + Cla- 
vier ABS + 100 programmes 16 
KO K7 * livres * revues ORDI 
5 etc... : 900F, M. LEPEUTREC. 
Tel: (97) 65.23.77 (19h). 

VENDS ZX 81 + 16 KO + Ma- 
nuel + Divers cables + pro- 
grammes (10 84). Emballage 
origine sous garantie : 650F. 
ZEROUAL K. 19 allee du Bou- 
leaux 78130 LES MUREAUX. 




VENDS Ordinateur dechecs 
Sensory 9. Valeur 2400F vendu 
1400F. Tel :849.56.95 

VENDS ZX 81 + 64 K + 2 K7 
+ 2 livres : 900 F. Philippe 
MANGAUD. 3 rue de naples 
78150 ROCOUENCOURT, Tel: 



VENDS ZX 81 - 16 KO + En- 
vahisseur + Golf + tous cor- 
dons + livres : 500 F. Cyril DU- 
HART. 3 rue Louise Michel 
69700 GIVORS. Tel: 16 (7) 873 
47 19. Apres 18H. 

VENDS ZX 81 + 64 KO + im- 
primante + clavier mecanique + 
cartes son (2) + carte parallele 
1+ connecleur cartouches VTR 
+ carte couleur + HRG + 18 
logiciels + 16 livres + 16 
revues (ORDI 5 + ECHOS SIN- 
CLAIR) : 3300 F. Tel: 50 41 51 
24. 

VENDS ZX 81 + T.V. NB + 
magneto (sous garantie) + me- 
mopock 16 K (sous garantie) + 
memopock H.R.G. (sous garan- 
tie) + clavier ABS + 5 K7 de 
jeux (Rex, Cobalt, Rocket man. 
3D Defender. 3D Formule 1) + 
10 livres :2700 F. Gilles LOPEZ 
19 rue de la Paix 33140 PONT 
DE LA MAYE. Tel: (56) 87 12 
53. 

VENDS ZX 81 (sous garantie) + 
extension 16 KO + magneto de 
marque LANSAY + quelques 
livres : le tout 850 F. Chritophe 
SJACQUES 1 1 rue des Allies 
57270 ULKANGE, Tel: 257 09 
41. 



ON ^cLATe Commas 




PIANO FORTE 

de Francesco COMENCINI 

Avec Giulia BOSCHI. Fran- 
cois S1ENER et Giovanella 
GRIFEO. 1h42. 




Ljirji Cl)M£NCiM vous connais- 
sez ' Non ' Ca tan nen j vous en 
parlerai une autre fois quand 
vous s'rez sages En iolI cas 
c eta t u- grand monsieur du ci- 
nema mai y a u n e vngtame d'an- 
nees. et cest ma-.iienant sa Mile 
qui 'epiend 'e flambeau 'amilial, 
et bien en plus ' 

Faire un Mm sur les drogues deja 
cest pas evident Mais le lane nl 
en en faisan i apoioaie commer- 
ciaie stye Aiphabei City, ou autre 
stye Midn<gh: Express, ni en di- 
sant que c est de 'a merde caca-a- 
luir cest carremem de la naule 
voitige Un des seuls tms qui en 
Irate dune tacon simiiaire. c'est 
"Maudits Je Vous Aimeois" de 
M T Giordana. un Rita', et encore 
ce n'etait pas le sujet du lilm 
De toute mamere Miss COMEN- 
CINI denonce la doce doiicement. 
Ira'iquiHement avec ces images de 
quelqu un qui s il n "en a pas pris, 
a cotoye des gens qui etait 
accros. Rare. 

J'etais il y a 2 semaines au Festi- 
val de Film de Femmes a Turin, 
en Italie. Quel rapport avec le lilm 
que dont que chuis en train d cau- 
ser si ce n'est que la realisalrice, 
oui, oui. "trice" done une gon- 
zesse. est Ritale ? En ben juste- 
ment Le fail queue soil italienne 
ne fait pas avancer le schmiiblick, 
mais qu'elle soil lemme. alors fa, 
certainemenl. Les funes qui orga- 
nisaient le festival etaient tres a 
chevai sur le fail .qui! s'agisse de 
lilm de femmes. pietes a s tatter 
pour defendre ce point de vue. 
D'ailieurs on s'est mis sur la 
gueule. avec des mots J'etais pas 
seul. y'avait aussi Pidouzzz qui 
fail la teToche a cote et des cani- 
nes italiennes On leur a dit que le 
cinema de femme navait rien de 
particulier. que e'etait simplement 
d'autres gens qui font des films, 
et que cnaque personne, homme 
ou femme. raconlera la meme his- 
toire differemment. Moralile. le 
coup de laire un festival special 
cinema fait par des lemmes. c'est 
du bidon. 

Eh ben, pour le cas de ce film, 
chuis presque amene a reviser 
mon jugement. Je trouve que le 
ton employe "pour raconter I'his- 
toire toute en finesse de ce couple 
de toxicos que la dope empeche 
de vivre "normalement" leur 
amour et leur vie. est particulier a 
une lemme On a d'un cole la fine 
qui decide de decrocher complete- 
ment, et de I'autre le mec qui n'y 
arrive pas. bien qu'il ait essaye 
(au debut du film, ils sont tous 
les deux en cure de desinlox). 
Une histoire qui met done r accent 
sur ce soi -disan! bon sens qu'au- 
raient les femmes. decrit chez tant 
dauteurs, de cineastes Chais pas 
si ga existe pour de bon, en lous 
les cas, ma gonzesse en est 
I'exemple vivant de ce bon sens 
Celte coloration particuliere donne 
au film une douceur, un je-n'sais- 
quoi de calme serein qui me la 
fait aimer. Kesske j'cause bien 
parfois. dites done ! 
Done cest bien. vu ? 





box office 



LA PETITE FILLE 
AU TAMBOUR 

de George ROY HILL 

Avec Diane KEATON (nest 
pas la tille de Buster), Klaus 
KINSKI. Yorgo VOYAGIS et 
Sami FREY. 2h10 (long !). 



HI I Prononcer bate, en haspi- 
rant le hache. comme elte a dit 
la mai tr esse. 

Ca fail ricain. /ustement yen a 
peu celte semaine des films rl- 
cams: un bien, RAS LES 
PROFS, un moyen que dont 
j Vous causerai la s'mame pro- 
chaine, LA RIVIERE et un pas 
bien, LA PETITE FILLE AU 
TAMBOUR. Cote francais. 
deux bien. LES SPECIALIS- 
TES (/V 75, Id ces! 174) et 
LOUISE LINSOUMISE. 
Pour le reste a vous de vous 



deme'der. j'vais quand meme 
pas vous macher lout I'boulol. 
vous zavez qua apprendre a 
lire. 

Chais pas si vous avez r 'mar- 
que, mais ya un questionnaire 
qu'il est tout beau, alors j'es- 
pere que vous allez pas Irop 
me saquer la fete, non mais 
ho. chuis pas maso. moi I 
Hein. non sans dec' dites-moi 
c'qui vous ennuie dans la 
page, c'est pour vous qu'on 
scasse apres tout! 

CLOU le magnifique (c'est 
pour vous influencer dans vos 
reponses I) 



LOUISE LINSOUMISE 

de Charlotte SILVERA 




Avec Catherine ROUVEL, 
Roland BERTIN et Myriam 
STERN. 1h35. 



beaute. une merveille, un soleil 
a elle. une princesse et tout le 
bataclan habituel, que depuis 
le temps que j'vous la (ail 
celle-la. vous d'vez la connaftre 
par coeur et en plus a fen vers 
en sautant un mot sur deux ! 
Et la elle le dil pour de vrai 
dans le film, puisau'il s'agil 
dune mere juive algerienne et 
de ses filles, enlin surtout de la 
pumee, Louise. 
Cette pelite peste qui fait nen 

3u'a faire des belises et qui 
emande des choses incroya- 
bles que meme sa grande 
soeur (quelle gourde) elle y 
pense meme pas I 
Non mais sans blague, qu est- 
ce que c'est que ces jeunes 
devoyes qui font des surprises 
parties et qui dansem cette 
danse de sauvages. le twist (a 
Saint Tropez, wap douwap) en 
cet an de grace 1962 ? Et puis 
il nest pas correct qu'une ga- 
mine comme Louise aille chez 
des etrangers qu'on connait 
meme pas. que ce soit elle ou 
bien les autres de mes filles 



se 



Elle 



sent pas bien chez nous ? 
C est mieux chez les autres ? 
Et comment ca peut elre 
mieux. hein, dites-moi ? Elle 
aime pas la cuisine de sa 
mere, moi qui me saigne aux 4 
veines pour qu'elles mangent 
bien, qui leur fait leurs habits 
pour qu'elles soient belles 



comme des princesses ? 
Comment ga. cest pas a la 
mode c'que j'leur couds ? Et 
alors. c'est moi qui les ai fails, 
avec mes mains, comme ma 
mere elle ma montre. Parce 
que, moi, j'la respectait ma 
mere, pas comme Louise qui 
fail tout pour me rendre mal- 
heureuse ? Elle veul me tuer 
ou quoi ? Elle se rend pas 
compte que tout ga c'est pour 
son bien (oh pa va. hein, celle- 
la on m'la deja faite plus dune 
fois). comme ca elle sera une 
gentille fille et qu'elle pourra se 

Ouoi ! Quest-ce-que vous me 
chantez la ? Ma fille regarde- 
rait la tele jusqu'a la fin des 
emissions ? Mais c est terrible 
ca, elle voit des choses qui ne 
sont pas de son age ! Alors 
c'est la qu'elle prend toute ces 
idees folles, revoluhonnaires 
avec ces femmes du FLN 
(mon Dieu !) qui viennent de 
s'evader de la prison ' Alors 
ecoutez-moi bien, si vous 
voyez Louise, puisq., ;i|;|;.invr 
ment vous la voyez plus que 
moi, dites-lui qu'elle revienne a 
la maison, hein, moi ie mews 
de ne plus la voir, tna prin- 
cesse, ma beaute, ie soleil de 
ma vie. le... COUPEZ ■ Elle est 
bonne, on la garde ! 
Je remercie la mere de Louise 
qui a bien voulu nous dire 
quelques mots au micro de 
Radio HHHH. A vous les stu- 
dios ! 

Bon vous avez pige ? Allez le 
voir, cest pas pour nen que 
j'vous ai mis ur.e grand e 
photo ! 



V a des jours on sdil qu'on 
aurait mieux fan de rester au 
lit. S'prelasser Iranquiilemenl 



dans les bras de sa gonzesse 
ou de son mec (rayer la men- 
tion inutile). Eh ben G.R. HILL 
aurait du faire ca pendant les 
deux mois quit a passe a faire 
ce film laborieux. 
Ah ca c'est sur, ila faitde joiis 
voyages: la Grece, I'Allema- 
gne, Londres, Israel, sympa. 
En plus de ca il aurait pu nous 
pondre quelque chose de bien, 
enfin, il aurait, mais il a pas. 
Passke I'intrigue est mleres- 
sante au depart, John Le 
Carre, c'est pas complelement 
n'importe qui. Mais il y est pas 
arrive, ah ya des jours comme 
ca. 

Pour son malheur la pub est 
nulle, laffiche est belle, mais le 
slogan est nul, il dit tout: "Elle 
deviendra leur arme la plus 
puissante. S'ils arrivent a la 
rendre amoureuse.". Y suffit 
que j'vous dise que "elle" c'est 
Diane KEATON (mais kessh a 
bien pu la pousser a faire ce 
film, Targent ?} une come- 
dienne connue et prp-palesti- 
nienne. Vous concluez done 
immediatement que "ils" cest 
ou ie service secret israelien, 



ou la CIA (I'un ou iautte, ca 
n'a pas grande importance) El 
amoureuse de qui ? Eh ben ou 
dun bel ephebe agent Israe- 
lien (Sami FREY ? Non. non. 
rate, lui, cest le chef des Pa- 
lestiniens. Yorgo VOYAGIS ) 
ou du chef de t'OLP Comme 
elle doit etre Tarme >a plus 
puissanle". ce ne peut 4tre que 
Tlsraelien lamoureux Le chet 
des Palestiniens, cest contre 
lui quest dirge celte arme. 
Faut pas avoir fait Poiytechm- 
que pour deduire tout ca. 
n'est-ce pas ? 

Bon, alors j'ai conUance en 
vous: evitez ' 




APRES LA REPETITION 
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LES FAVORIS DE LA LUNE 
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17 20 
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LE VOYAGE A CYTHERE 

de Theo ANGELO POULOS 



Avec Manos KARRAKIS. 
Mary CHRONOPOLOU et 
Julio BROGI. 2h17. 



Voici un lilm qui fait partie de la 
cuvee Cannes 84 qui n'etait pas 
encore sorti. meme qu'il a eu le 
Prix du Meilleur Scenario Ca vous 
lait une belle jamne. a moi aussi 
Sur. I'histoire est baleze Mais 
c'est pas avec ca qu'on fait du 
Welles, qui lui-meme avec des 
histoires qui ne sont pas des 
canons du genre, a fait des films 
qui le sont. fabuleux, voir LA 
SPLENDEUR DES AMBERSQN Et 
puisque c'est pas du Welles, 
qu'est-ce que c'est ? Eh ben. 
chais pas Irop. J'peux deja vous 
dire si vous avez 2 heures a per- 
dre. vous pouvez vous laisser ten- 



ter, et encore vous pouvez certai- 
nemenl profiler de ces 2 heures 
pour ranger cette chambre. que ga 
fait plus dun mois que vot'mete 
vous tanne Suis-je assez clair ' 
Comme chuis un mec sympa. j'va 
vous cooler un peu de quoi est-ce 
qu'il s'agil, et puis apres. j'vais 
m'coucher. OK 7 

Un melteur en scene audilionne 
des vieux pour son procham lilm 
qui traite d'un mec qui r'tourne au 
pays apres 20 ans d'exil politik. Y 
sort s'taper une mousse au rade 
du coin, et y phantasme sur le 
vieux qui vend des beignets au 
coin d'la rue, et le v'la parti a ra- 
conter I'histoire. A la fin on 
s'apergoit. si on s'est reveille, que 
tout etail dans sa tete et qu'y 
s'etait endormi sur le comptoir. 
Super. 



RAS LES PROFS ! 



d' Arthur MILLER 




Avec Nick NOLTE. Jobeth 

WILLIAMS et Ralph MAC- 
CHIO (Le Moment de Verite). 
1h46. 



Vraiment. chuis con ' Non non. 
ne mconuedisez pas. ch ah 
passke vous eies d accord ' Bon 
ben OK. metci. ga lait touiouis 
piaisir de lapprendre I Mais 
quand meme avouez que pour 
vous c'est plus facile hem ' Moi 
i'm'echine a eenre des saiades 
toutes les semamps que vous 
vous hsez Iranquilles. pemards 
chez vous. et encore si vous lisez 
ma page Vous tiouvez pas que 
quelqua pan (ga c'est branctic. 
non cable) le lournahste nest 
qu'un solitaire qui nest uma-s 
paye en retour de sa prestaton 
par ie public Vous me compre- 
■'c oh oui. dnes-moi que vous 
me comprenez Je me pose quoti- 
dienremert ces memes questions 
msoUbles qc; mmem mon moral 
d'aciei par _-..■ de gra n d vent 
qu'y-a-i-ii de i'autre cote de la 
page "> Existe-;e vraiment ' Qui 
SuiS-.e ' Ou courge ? Dans quelle 
etageie "> Ah bon. ceiie de drone, 
merer ca tail i5 |0urs que i le 
cheichais Aurais-je digresse ' 
Cest, ma foi. lacheux. n'est-ii 
pas ? 

Bon ie r prends ou que i m elais 
arrete Alois chuis vraiment un 
con passke i'ai touiours au que 
Nick NOLTE c etail Chuck 
NORRIS Vous foulez pas d moi. 
y en a bien e.u on pas encore 
compns que i canard sappeiie 
HEBDOGICIEL et non HEBDOlOGl- 
CIEL. vous voyez pas la diffe- 
rence "> Eh ben c est bien ske i dr- 
sais chuis pas beaucoup plus 
debiie Que d auties ' 
Done cest bien Nick NOLTE qui 
loue dans le film, d'ailieurs . me 
sus 'en3j temple que ceiat pas 
Chuck NORRIS pas st y a pas de 
karate dans ie f<im C est pour ca 
avoir des 



doules Disons que i me suis plus 
pose de questions quand tout a 
i heure chuis passe devan: un a- 
noche et que j'me scs apercu 
qu y zom pas du tout la meme 
tele, c est vous dire si i ai besom 
de lunettes " 

NOLTE est un pro! dans un iycee 
Ou on a file le bae. enhn c'est pas 
I'bac mais Hek chose d equivalent 
a un mec qui sail m hre ni eenre 
dur < Moralite. les parents font un 
pioces en dommages et mterets a 
s'lemr a carieau L'avocate qu est 
charges de recueilln les deposi- 
tions des prols est une ancienne 
eieve de None entre autres Meme 
qu'elle avail compietement craqui 
sur lui a I'epoque. d'ailieurs. y 
s'la lait dans i film Masseu. 
kesske chuis vuigaire et sexiste 
quand i'm y meis ' 

C'est un bahut de fous. meme 
que dans les prols y en a un qui 
l est pour de vai. ceiui qu est sur 
la photo, et m£me que pour moi 
c'est i meiileur de la toie Faire les 
cours d hisioire en costume, c est 
as sure ment le meilleur moyen de 
fane ret' nu aux eleves des Hues 
qui sont pas touiours joios. mais 
ca. ils le diseni pas dans I'film. ce 
qui pour moi est une erreui C'esl 
bien de fane des films qui sont 
des critiques sur ie systeme edu- 
catif en vigueur. mais c'esl encore 
mieux de faire des propos'hons 
concretes, meme si tout ca tombe 
dans I'oieille dun sourd. en i oc- 
currence ie redo rat federal ncam 
La oil i'veux en v'nir cest que 
dans le lilm y save-: pas s arreter 
5 mmutes de ngoier pour dire 
que que chose de vaiabie et c est 
vrarmeni aommage. passk y 
va.eni lous les elements pour le 
faire 

Enhn. a part cette critique, ma- 
jeure s'ji en est. cest un Mm ri- 
goio el bien tail 

PS Le vrai hire cest 'TEA- 
CHERS '' -Profs !-, ceiui que 
i d:si'ibuieu f a choisi c est vrai- 
ment pour attirer les gogos ! 



LES ROIS Dil GAG 

s Claude 7JD1 

Avec Michel SERRAULT, 
Thierry LHERMITTE et " 
rard JUGNOT. 1h30 . 



Bon, il a eu son Cesar et il .. 
conteni le ZIDI. Meme qu on a 
des doutes a propos de I'honne- 
tete des gentils organisateurs de 
cette "somptueuse" ceremonie. 
J'essplique: normalement. je vois 
les films de 3 a 4 semaines avant 
leur sortie patisienne Pour que 
nous les journalistes puissions les 
voir, r attache de presse de cha- 

film organise des projections 
de presse qui se deroulent dans 
des salles speciales. generalement 
assez pelites L'attache de presse 
c'esl, en gros, la personne qui 
s'occupe de faire parler du film 
qu'il defend dans lous les organes 
de presse existanis. radios FM el 
peripheriques, TV. presse ecrite. 
etc.. S'il me venait I'idee de faire 
linterview du realisateur ou d'un 
acteur. on sail jamais quelles 
idees saugrenues peuvent me pas- 
""" lar la tele, eh ben il suffit que 
j'demande a la tache de in- 
cest c'que j'avais fait pour 
GWEN, par exemple 
(Oh, merci Tonton Clou pour tes 
belles lecons mais tu sais. on en 
i pas grand chose a faire. 
mais chle I'dis comme ca pour 
que tu sois un peu au courant !) 
J'm'en fous. J'continue c'que 
j'etions en train d'vous raconter 
Alors comme ga. pour LES ROIS 
DU GAG. les projections de presse 
ont eu lieu le lundi et le mardi 
precedanls sa sortie en salle Tout 
"e suite, moi. j'ai tique Pourquoi 
que lui il se permettrait de sortir 
son film apres la remise des 
Cesars. ou que justement il s'tape 
ceiui du Meilleur Film el ceiui de 
Meilleur Realisateur, hein ? 
Curieux, non ? Bon, y en a qui di- 
sent que c'est parce que dans son 

ya un gag sur les Cesars. 

I d'ailieurs un des meilleurs 
du film, moi i'veux bien, mais 
chuis pas eniierement convain 
Le gag en question, ben j'va vous 
I'conter C'est SERRAULT GAETAN 
quest nomine pour le Cesar du 
Meilleur Acteur conjointement a 
BRASSEUR. NOIRET et Pierre RI- 
CHARD el qui evdman ie recoil. II 
va I'chercher sur te podium et a 
c'momenl-la tous les mecs lui 
sautent dessus. comme s'il venait 

marquer le but decisif au 
Championnat d Europe de foot ! 



Ol 



W^ 



Ca c est un bon gag. mais le reste 
est piutdi au ras des paqueretles 
L'histoire c'esl pas i pied, j'crois 
' i qu ma p'tite soeur, toujours 

. aurait pu ec re un scena 
meme acabu une vieJOs star bur- 
lesque de la tele qui 'ait depuis 20 

un chaud quotidian, qu' 
seneux comme un pape, non 
comme 2 papes dans I'civil, vire 
s gagmen qui feriveot des trues 
nop ringa'ds ( ! a c est sur y s'gou- 
ient oas ') et qj. les remplace par 
2 jeunes auteurs de ta.ent qui cre- 
vaient la dalle avam de I'rencon- 
trer Manque de cot y s'tail enga- 
ger pa< LE plus g-and realisateur 
et VaiaU si traiaiere. aucun inte- 
tet 

L idee de depart est pourtanl suffi- 
samment simple cour qu'on arrive 
I faire un true sympa mais non. 
ai 1'impression que ZIDI a pris 
ton vieux camel ou il mettait 
toutes les coinenes qui lui 
saieni par la tele il , 20 ans, qu'il 
les a mises bout a bout, sans 
trier, et qu'il en a fait un film, un 
peu facile Surtou: see justement 
i a des 'jeunes auteurs de la- 
ient' qui crevent la dalle el qui 
pou'raient lui donne' matiere a 

un autre Mm du genre LES 
RIPOUX alors ' 

Done si vous avez une histoire ri 
goiotte qui Mine dans vos tiroirs. 
envoyez-'a a Z'Dl. pt et' ben qu'ga 
rdonnera du coeur a lou- 
vrage I 



tetocke 

ECHEC AU MALE 
le beau mariage 



Film (1982) de Eric Rohmer ,-, 

avec Andre Dussollier. Bea- ~ 

trice Romand, Arielle Dom- § 

)asle, Feodor Atkine et So- s| 
phie Renoir. 

Une jeune bourgeoise de pro- 
';e, lasse de son amant tou- 
•S mdisponible parce que 
mane et pere de larnille, de- 
cide de se trouver un epoux 
bien a elle La chasse au rnari 
est ouverte. dans un milieu so- 
cial bien caracterise Avec 
I'aide dune copine rabatteuse, 
elle se jette au cou d'un avocal 
bien de sa personne. 
Dans le cadre de son sermon 
annuel, le pere Eric, dil Roro 
les roubignolles. nous livre le 
resuitat de ses maslurbations 
(intellectuelles) La Femme, 
oeuvre dune ejaculation pre- 
coce du malin, sevit ces der- 
niers temps en Normandie 
(que j'i'ais evoi' un jou'|. Cou- 
pable du peche d'adultere, elle 





cherche en plus a compromet- 
tre un homme chaste, voue au 
service de la justice. Heureu- 
semeni. le Male echappera 
aux manoeuvres du Demon 
(Echec au MAL). 
Honni soil qui mal y pense, la 
morale de celte histoire esl 
Honni soil qui manigance. Si le 
preche dune vieille barbe vous 
dit, si vous devez (aire peni- 
tence audiovisuelle n'hesitez 
plus. 
Diffusion le 21 a 20h30 sur 



Decidement cette 
TF1 fait dans la bestialite. Ce 
soir une etude des loups. et di- 
manche prochain, les oiseaux. 
A propos des loups, beaucoup 
de choses ont ete dites et 
beaucoup restent encore a dire 
(rassurez-vous. je m'occupe de 
tout). Ce film apporte un je ne 
sais quo! de nouveau; pas 
question de loup garou ou 
autre monstre geant qui detruit 
tout sur son passage, la 
— ince et la finesse font leur 
apparition dans le genre du ci- 
nema fantastique. 
Mais qui sont done ces trois 
cadavres alfreusement mutiles. 
que Ton vient de retrouver 
dans un jardin public ? Apres 
une enquete approfondie la 
police decouvre que ce ne 
sont ni NAF-NAF. ni NIF-NIF. 
ii NOUF-NOUP, baleze la po- 
lice ! Plus tard, on apprend 
que e'est un gros P.D.G, sa 
femme et son garde du corps. 
Sur un autre cadavre. on de- 
couvre des poils de betes, et 
qui n'etait qu'une intuition 
devient une certitude: e'est un 
animal qui commet ces atroci- 
tes. Tout le monde etudie le 
loup. cet animal mysterieux. 
dont I homme a toujours eu 
peur (lire avec une voix grave 




et terrifiante). Mais seul le poli- 
cier en chel -e'est lui le plus in- 
telligent - decouvre la surpre- 
nante realite; les loups. auraien! 
subit le meme genocide que 
les indiens. done les grands 
chasseurs indiens se reincar- 
neraient en loup (wolfen) pour 
se venger (bien fait pour leur 
gueule !). Evidemment tous les 
regards se tournent vers I'in- 
dien de service... Je ne vous 
en dis pas plus, car je vous 
Irustrerais et vous men vou- 
driez a mort. 

Franchement, moi qui ne suis 
pas un adepte chevronne des 
f ms "c. opouvante". |C vo«s re- 
commande tout oadcuiiere- 
ment ceiui la Mi-policie'. mi- 
fantastique, mi-ph-ioscphique. 
pour le p'ix dun film, vous 
avez le droit a 1 film ot demi ■ 
Laissez-vous tenter. 
Diffusion le 18 a 20h35 sur 
TF1. 



curiosifes ; 



MANON DES SOURCES 



Film de M. Pagnol (1952) 
avec Jacqueline Pagnol et 
Raymond Pellegrin 

Glou Glou, cong ! C'est tou- 
jours la meme histoire. La Pro- 
vence, le paysan. la fille-mere. 
le bossu, la farigoulette ,.,.La 
ratatouille est pas mauvaise 
mais labsence de Fernandei 
est prejudiciable au talent de 
Pagnol. Pour I assssent. 




grandes visionnaires du siecle 
fut tou|Ours la recherche de la 
beaute et de de I'encombre- 
ment minimum, Cette "poeti- 
que" de I'espace est mise en 
images avec GENIE (effets 
speciaux, trucages video, in- 
cruslations sur pellicule). 
Diffusion le 24 a 21h35 sur 
A2. 



CHARLOTTE PERRIAND 



Documentaire sur la plus 
grande creatrice Irancaise, ca- 
tegorie decoration inierieure. 
L'art dhabiter selon une des 



La television "de gauche" qui 
veut se deculpabiliser en fai- 
sant des telefilms anlicommu- 
nistes ou antifascistes, je n'y 
crois qu'a moitie. Encore une 
de ces bouillies indigestes que 
nous serl Antenne 2. C'est une 
critique de tous les regimes to- 
talitaires nous annonce la 
chaine. Plein de bonnes inten- 
tions n'est-ce pas ? Mais 
quand je vous aurai dit que 
ga se passe dans un pays ires 
enneige. et que tous les mirli- 
taires y'zont un chapeau plein 
de poils sur la tele avec une 
etoile agrafee dessus vous 
pigez quil y a anguine sous 
roche. el vous allez au cinema 
voir "BRAZIL" de Terry Gilliam. 
parce quil esl encore temps 
pour la seance de 22h. Bon 
film. 
Diftusion le 20 a 20h35 sur 



Lundi 18 Mars 



20h30 C- : COURAGE FUYONS (voir article 71) 

20h35 FR 3 ; LA FORMULE imauvais) 

20h35 TF 1 ; WOLFEN (von article! * 

20h35 A2 : LHEURE DE VERITE: (invite surprise) 

21 h55 A2 ; ACROBATES (voir CURIOSITES) 

22h20 TF 1 ; ETOILES ET TOILES (magazine du cine 

branche! 
23h00 FR 3; THALASSA (magazine qui a le vent en 

poupe) 



Mardi 19 Mars 



20h30 C - : RONDE DE NUIT 

20h35 FR 3; MANON DES SOURCES (voir CURIOSI- 
TES) 
20h35 TF 1 .- ENIGMES DU BOUT DU MONDE 
20h35 A2 ; COURS APRES MOI. SHERIF (voir arti- 

•cle}^ 
21h35 TF 1 : LA PASSION DE LA VIE rf 3; Renailre 
22h05 C - :PRENOM CARMEN 
22h1 5 A2 : LIRE : Le Complexe de Broadway 
22h30 TF 1 ; TINTAM'ARTS (varietes) 



Mercredi 20 Mars 



20h30 TF 1 .' DALLAS 

20H35 FR 3: CADENCE 3 

20h35 A2 : LE PASSAGE (voir CURIOSITES) 

21 h30 TF 1 .' ROMAN D'AMOUR 

22h05 A2 ■■ MOI...JE (voir CURIOSITES) 

22M0 C + : LES FILLES DE GRENOBLE (documen- 
taire honnete) 

22h25 FR 3: LE PRESIDENT CORNEMUSEUX 

22h35 TF 1 : COTE D'AMOUR (La bourse qui rocke) 



Jeudi 21 Mars 



20h30 C ■- :LE BEAU MARIAGE (voir article) 9 

20h35 A2 .- LE MUR DE LA MAINE (serie belonnee) 

20h35 FR3.rU ECRASERAS LE SERPENT (lilm 

turc) 

20h35 TF 1 ; AU NOM DE TOUS LES MIENS rV 7 

21 h35 A2 ; DECAUX'S STORY: MERMOZ 

2ih35 TF 1 .- infovision (magazine d'aclualHes} 

22h10 C- : L'ALCHtMISTE 



Vendredi 22 Mars 



20h35 A2 : CHATEAUVALLON 

20h35 FR 3: HISTOIRE DUN JOUR: 24 MAI 68 

20h35 TF 1 : SHOW JULIEN CLERC 

20h35 A2 -.APOSTROPHES: Pourquoi eenvez-vous ? 

21 h45 TF 1 ; MULTIFOOT 

22h30 FR3:LAISSER PASSER LA CHANSON 

(Franchatse) 
22h20 C + .-DEMENTIA 13 (1963). lilm (fantastique) 

de F. F. Coppola 
23h00 A2 : LE PETIT THEATRE DE RENOIR 



Samedi 23 Mars 



20h35 TF 1 ; LE DIABLE DANS LE BENITIER (dra- 
ma- ti -que) 
20h35 A2 ; CHAMPS ELYSEES (Michel, les le plus 

beau) 
20h35 FR 3 : DISNEY CHANNEL 
22h05 A2 ; LES ENFANTS DU ROCK: Stranglers 
22h1Q TF 1 : DROIT DE REPONSE 
22hl5 FR 3 : DYNASTIE 

33h00 C+ : LE RAYON BLEU (Danger, la debilile 
esl contagieuse) 



Dimanche 24 Mars 



20h35 A2 : LE GRAND RAID 

20h35 TF 1 : LES OISEAUX (voir article) A 

20h35 FR 3 ARCHITECTURE ET GEOGRAPHIE SA- 

CREE 
21h00 C - iCHALEUR ET POUSSIERE (superbe. a 

ne pas rater) 
21h35 A2 :CHARLOTTE FERRIAND (voir CURIO- 
SITES) 
22h30 FR 3 i YOUNG MISTER LINCOLN (voir articlem 



teioche 



NOS ENNEMIS LES BETES 

les oiseaux A 



d'Alfred Hitchcock 



MOI...JE 



Magazine ')'• la bande a Rrcu- 
gnot. Deux bons su|ets. deux 
medians, un medius 
Ne pas maiquer la gueule ces 
gens qui portent des noms im- 
possibles, et sunout les paro- 
dies de journal televise Trois 
minutes de fou-rire garanti. Ca 
se fail rare a la tele Merci 
Pascale. 

Diffusion le 20 a 22h05 sur 
A2. 



ACROBATES 



Piece d'lsrael Horovitz 
En faisant son numero. qui esl 
dangereux. un couple d'acro- 
bates se lance ses QUATRES 
ventes. C est court, intense, 
stylise. Un texte fort donne une 



dimension dramatique au tra- 
va'i en force des comediens 
loo veritables athletes). 
Diffusion le 18 a 21h55 sur 




(1963) 



Actuellemenl. on nous vante la 
beaute et la douceur de la 
faune (ecologie vaincra !). a 
travers des emissions leltesque: 
Nos amis les betes, 30 Millions 
d'amis. etc.Ce soir, c'est tout 
autre chose. C'est un Mm, pas 
un de ces documentaires siru- 
peux avec envoi doiseaux au 
ralenli sur une musique de 
Jean Michel Jarre, genre Fre- 
deric Rossif. Pourlant ca 
commence tout gentiment. la 
campagne. la mer, les sons 
bucoliques comme le cui-cui 
des piafs. le bruit de I'herbe en 
tram de pousser. le cri du dori- 
phore en rut le soir au mois de 
Janvier. Champelre quoi.... 
Mais c'est sans compter sur la 
perfidie de ce cher Alfred. 
Vous vous doutez bien qu'il ne 
va pas en rester la. Fidele a sa 
reputation de maftre du sus- 
pense il prepare le terrain. 
Nous voila done dans une pe- 
tite ville des Etats Unis ou ar- 
rive une jeune femme qui ap- 
porte un couple doiseaux a un 
couple de ses amis (rassurez 
vous ga ne terminera pas en 
partie carree). Et la. vlan ! un 
oiseau vient piquer le crane de 
la jolie demoiselle. Bien evi- 
demment, elle va rester en 
convalescence chez ses amis, 
et c'est la et seulement la que 
les ennuis commen- 

cent.D'abord un oiseau, puis 
deux, puis trois. et ainsi de 




suite... Brel c'est I'angoisse. lis 
sont agressifs ces oiseaux de 
malheur. lis arnvent de partout 
et de nuile part. Mais la ou il 
esl tres fort Mr Hitchcock, c'est 
quil n'utilise pas des oiseaux 
grand gros mechanlsavec un 
bee crochu, genre rapace mal- 
faisanl. Non des mouettes 
rieuses quelle ironie des cor- 
beaux. des petits piafs. On a 
pas limpression quand on les 
voit sur nos trottoirs. que ca 
peul faire aulant de degats ces 
petites betes. En fait. Hitch 
(pour les intimes) qui s'es- 
sayait dans le genre cinema 
fantastique. a reussi la un 
coup de maitre. Sans aucun 
artifice, d'eflets speciaux, ou 
autre musique angoissanle (il 
n'y en a quasiment pas), de 
vrais frissons en perspective. 
Ne cherchez pas a vous met- 
tre dans I 'ambiance habituelle. 
sordide et morbide des films 
depouvante classique, Alfred 
sen occupe. 

Au fait, vous avez son bonjour. 
Diffusion le 24 a 20h35 sur 
TF1. 



LA MAISON BLANCHE POUR LES NOIRS „, 
young mister Lincoln m l^Ql 



Electeurs, eiectnces. eiecln- 
ciens et autres gaziers voici 
(histoire ediliante du jeune 
Abraham Lincoln, pere fonda- 
teur, a I'epoque moderne. de 
la sainle (et neanmoins electri- 
fiee) republique americaine. 
Fils du pionnier et de la lampe 
a petrole reunis. il sengagea 
tres tot dans la voie du progres 
et du Dollar associes(son en- 
gagement aupres du sexe fe- 
minin fut moins heureux). Epus 
de Justice et de Verite il milita 
pour les nobles causes du 
genre humain: labolition de 
lesclavage. ledilication du 
peuple, le developpement du 
chemin de fer, i edification des 
sanisettes. Malgre sa gueule 
dinstituteur socialiste au 
congres de Bourg-en-bresse, il 
rassembla les foules el fit la 
carriere que vous savez Avec 
son air de conslipe a perpe- 
tuite, ses concitoyens lurent 
heureux de se debarrasser de 
sa lace de careme en Ten- 



f% 




En fait c'est plutot un bon film, 
le realisaleur et 1'acteur princi- 
pal partageant les convictions 
du heros. il en resulte une 
emotion authenlique, un 
charme etrange. Un document 
sur une epoque. celle ou on 
croyait encore au civisme. 
Diffusion le 24 a 22h30 sur 
FR 3. 



LA BRUTE, LA BRUNE ET LE TRUAND 
cours apres moi, sherif!-& 



Film de H. Needham (1977) 
avec Burt Reynolds et Sally 
Field 

Le scenario est d'une nullite 
aflligeanle. mais c'est voulu. 
Un sudiste richissime offre 80 
000 S a un transporter inde- 
pendant (Bandit) pour livrer 
400 caisses d'une biere 
texanne interdite en Georgie. 
Bandit (Burt Reynolds) per- 
suade son associe Snowman 
de tenter I'aventure: 1600 km 
en 28h (pour les avenlures de 
softman voir page 32). Sur le 
chemin du retour. Bandit re- 
cueille Carrie (Sally Field) qui 
fuit un futur mari. Le Sherif Bu- 
ford T. Justice (quoi de neuf 
docteur ?). ex-futur beau pere. 
est sur ses traces. La pour- 
suite s'engage... VA VA 
VOUM... 

Voire Honneur, mon client 
plaide coupable. il y a detour- 
nement de sujet Les heros 
sont tous des marginaux. des 
declasses. Loin de respecter 
les lois de notre beau pays, ils 
accumuient les deiits. De plus 
le visage de I'ordre a les 
contours dun representant de 
la loi a la connerie inconlour- 
nable et au nom (Justice] cari- 




Volre Honneur. I ac- 
cuse nie avoir tourne un film 
realiste. Son oeuvre appartient 
a la categone du dessin 
anime. une tradition nationale. 
C'est une tentative de comedie 
loufoque qui ne se prend pas 
au serieux. 

Attendu les declarations du 
prevenu. la cour (la critique) 
reconnait le bien londe de I'ob- 
jet. sa necessity vitale en ces 
temps moroses et accorde les 
2 retroviseurs et le pot 
d echappement. 
Diffusion le 19 a 20h35 sur 
A2. 



GAG?... NON... PUB! 



VIDEOTROC 

VENTE - ECHANGE - DEPOT DE 

TOUT MATERIEL VIDEO ET MICRO- 

INFORMATIQUE - LOCATION DE JEUX 

I NOS PRIX NEUFS ! 



: '150 /■' 



MIISITFLR COLLLLK : 2JW F til 111 U DISQt. 121 I FS -r 
,\I\RI mm \l. ST.CIM : I ."'Ml / \t,m,u-:i> I > ivn -Imh 

IUDWIFIFF.S V f.SV/i I US I l/.V.V ( -I.YIA I 2n .■ . 

AMSTRAD tt.ip.ima.irr BROTHER , ivnlon : .' 7W 

+ moHiteurcoultur ; 4490 F ORIC ATMQS : t.m F 

* moniltur m„m„ hmmv 2 Wn / COSSOI.E COl.ECO CBS : 990 F 

Joystick QUICK SHOT II; 120 F CBMMPAl \-ljeu~ 24WF 

SPECTRUM* 7I690F C8M 64 PirlKl + 1 jfu - 28WF 

OUVERT DV MARDI AU SAMEDI DE 10 H A 19 H 

89 bis, ™p de Cfiaremon 75012 PARIS 

rel. : 342.18.54 

metre. : gore de Lyon. t.etlrit liollin 



LES BOUTIQUES DES 
BRANCHES CABLES 



TOUS LES LOGICIELS FROM USA 
pour ATARI, CMB 64, APPLE, 
COLECO. 

117 avenue de Villiers 75017 PARIS 

766.11.77 
163 avenue du Maine 75014 PARIS 

541.41.63 



VISMO 

Vente informatique service micro ordinateurs 

ORIC, SINCLAIR, AMSTRAD 

Moniteurs couleur et N/B. 

Tous peripheriques 

ASSEMBLEUR MONAMS 
Recommande par HebdogicicI 

84, bd Beaumarchais 75011 PARIS 
12. bd de Reuilly 75012 PARIS 




1.990' 

Port el 

150 F embattles 

la limilc des slocks dispor 



VIDEOSON 



40, rue de la republique 

91150 ETAMPES - Tel. (6) 494.46.49 

Mardi au Samedi 9 h - 1 2 h, 1 4 h J5 - 19 h 15 



VIDEO 107 INFORMATIQUE 

o o o <> o 

PLACE DES FETES 
75019 PARIS 

QL SINCLAIR DISPONIBLE 

COMMODORE, ORIC, AMSTRAD 

EXELVISION 

Tel. : 201.46.09 



L'EXPERIENCE MICROPUS 

Lit Miiisott de I'lnfonitiUujue 
• MICRO-ORDINATEURS PERSONNELS : 



-ORIC 

- SINCLAIR 

- THOMSON 

- COMMODORE 
- LAZER 

- CANON 



- ALICE 

- ELECTRON 
-MSX 

- AMSTRAD 

- EXEL 100 
-DRAGON 



Nous dispose/is de la quasi totaliti des accessoirts 
et peripheriques iissocies ii nos marques et ceci 
dimiiit toute i'auiiee. 

, COURS DE FORMATION 

15 cours GAMBETTA 
34000 MONTPELLIER 

(67) 92.58.83 



Suite de la page | 

Quant aux operation., du eiyJo 
100.000 micros dans les 
ecoles', je ne pense pas quelles 
soient prioritaires. II y a drija 
beaucoup de micros dans ces 
ecoles actuellement alors que 
dans les universites II n'y en a 
pas. Quand vous allez a Pitts- 
burgh, vous constatez qu'il y a 
12.000 micros pour 9. Q00 etu- 
diants. Aiors que chez nous il y a 
1 micro porjr 1000 etudiants. 
C'est un scandale I 
Quand ces etudiants sortent de 
leur taculte. ils se servent d'un 
micro comme ils respirent alors 
que nous en sommes encore a 
apprendre le basic aux ecoliers. 
Ce qui me paralt urgent, c'est que 
tous les etudiants sachen! se ser- 
vir dun ordinateur. sachent se 
servir de logiciels comme les ta- 
bleurs, les lichiers et les traite- 
ments de textes. 

HEBDOGICIEL- Parlons a pre- 
sent de la television cablee et de 
vos realisations a Metz. 
SENATEUR RAUSCH- Le ca- 
blage a commence en 1979. Avec 
une derogation accordee par Ray- 
mond 8arre, la ville de Metz et 
TDF ont cree un reseau de cables 
qui a ele concede a une societe 
privee. (iliale du groupe Philips. 
Cette societe a eu I'affaire parce 
quelle ne demande pas un sou 
d'argent public, c'est un investis- 
sement prive et elle a rendu toute 
la ville cablable. Les Messins 
peuvent etre raccordes a ce re- 
seau de television en 2 ou 3 
heures 

HEBDOGICIEL- Le linance- 
ment se tait par le prix des abon- 
nements ? 

SENATEUR RAUSCH- Exac- 
tement. les abonnes payenl une 
cotisation mensuelle de 50 francs 
pour 10 chaines et bientot 60 
trancs pour 15 chaines C'est. en 
plus de son prix modique pour 
lutilisateur. une concession qui 
rapporte puisque la societe verse 
1% a letat et 1% a la ville de 
Metz. 

Alors que tous les cablages dont 
on parle aujourd'hui coutent la 
peau des fesses. chcz nous ca 
rapporte 

HEBDOGICIEL- El tout le 
monde est content 
SENATEUR RAUSCH- Abso- 
lument Actuellement. les usagers 
disposent de 3 chaines franchi- 
ses. 3 chaines allemanrjes. 2 
chaines beiges et 2 chaines 
tuxembourgeoises Et. d'ici peu 
une chaine Suisse franchise une 



chaine italienne bilingue, RTMC 
et Music-box, un satellite anglais. 

HEBDOCiCIEL- Que rJoivent 

taire les autres municipalites pour 
atteinrJre le niveau d'equipement 
de voire ville ? 

SENATEUR RAUSCH- Si Ion 
veul taire exploser la communica- 
tion il taut multiplier ce genre 
d'operations et surtoul privatiser 
ce secteur Laisser le monopole 
du cablage a la OCT (Direction 
Generale des Telecommunica- 
tions] nous fera encore prendre 
un retard considerable. II taut 
laisser les villes cabler comme 
elles le veulent et des dizaines de 
milliers d'emplois seront crees 
dans le cable. Malheureusement. 
la DGT est terriblement attacbee a 
ce monopole el nous sommes en 
train de louper cette nouvelle en- 
tree dans l 'ere de la communica- 
tion que vivent actuellement les 
americains. 

HEBDOGICIEL- Vous avez 
egalement dote voire ville d'outils 
telematiques remarquables ? 
SENATEUR RAUSCH- Tout a 
tail, noire centre serveur. "Mira- 
bel", couvre la ville de Metz et la 
region Lorraine. 9000 personnes 
sont equipees d'un minitel et il y 
a 1000 appels par jour Vous pou- 
vez dailieurs i'appeler de Paris 
par Transpac. "Mirabel" contient 
toutes les informations inleres- 
sanl la ville et la region ainsi 
qu'un certain nombre de services 
originaux comme une message- 
rie, un calculateur d'impbts ou 
TActe" qui repertorie toutes les 
pieces de theatre en un acte. 
Nous sommes egalement en train 
d'etudier le telechargement de lo- 
giciels. 

HEBDOGICIEL- La telemati- 
que semble done fonctionner nor- 
malement ? 

SENATEUR RAUSCH- 

Helas ! Les terminaux. c'est a 
dire les minitels qui sont chez 
I'utilisateur ne sont pas adaptes 
et leur developpemenl est bien 
comprumis 

Le minitel a ele invente avant 81 
et teste a Velizy et a Versailles 
L'objectit etait de supprimer lan- 
nuaire papier qui coute trop cher 
Chaque fois que Ion double le 
nombre de raccordes en France, 
on quadruple le poids de papier 
utilise el des centaines a" hectares 
de toret sont foutus en fair. En 
plus. I'annuaire n'est jamais a 
jour: le jour meme de sa distribu- 
tion, des milliers de numeros 
sont rJeja errones. Done, tout le 
monde devait etre dote d'un mini- 
tel en 2 ans. 20 millions d'exem- 



500 a 1000 francs nous ouvrail 
toutes grandes les portes de i ex- 
portation. 

Malheureusement, dans les pia 
cards des telecoms. il y avai: un 
ingenieur qui s'appelait DonOoux 
qui s'est associe a un certain Du- 
castel (qui est maintenant dire:- 
teur du CCMTT de Rennes) pout 
ecrire en janver 81 le rapport 
Dondoux-Ducastel (NDLR: d'o., e 
nom !). El ce rapport a complete 
ment demoli I'operation min tel 
demoli a mort ! Sur ce, cha'-qe- 
ment de politique, Giscard s tn 
va, Mitterand arrive, Mexandeau 
prend les PTT, et qui choisit-il 
comme ingenieur en chef des Te- 
lecoms ? Dondoux ! 
Pendant 6 mois. Dondoux ne sa- 
vait plus quoi (aire, il a longue- 
ment hesite et s'est finalement 
renie: il a continue la politique 
qu'il avail attaque dans son rap- 
port ! Mais, pour ne pas aller 
completement contra les argu- 
ments qu'il avait avances. il a 
conserve le minitel ET I'annuaire 
en papier. Ou coup, la production 
des minitels est ramenee a 
100.000 dexemplaires par an. et 
les 20 millions de pieces qui de- 
vaient nous mener au stade In- 
dustrie! nous passent sous le 
nez I Dailieurs, personne ne peut 
dire combien coute un minitel au- 
jourd'hui. tout ce que Ion sail 
c'est que Ton est bien loin des 
prix de depart et que. si vous le 
cassez. on vous le lacturera 3250 
francs ! 

HEBDOGICIEL- Vous parliez 
d'un materiel inadapte ? 
SENATEUR RAUSCH- Out, Si 
les minitels son! devenus trop 
chers. ils ont I'avantage de sensi- 
biliser les (raneais a la telemati- 
que. Mais la forme actuelle de ces 
terminaux n'est adaptee ni a I'uti- 
lisation tamiliale ni a lutilisalion 
professionelle 

Pour la maison, il faut un televi- 
seur sur lequel on enfiche un cla- 
vier et un modem et le petit ecran 
noir et blanc peu pratique du mi- 
nitel se Iransforme completement 
avec la tele lamiliale et son grand 
ecran en couleurs. Et quand voire 
lemme veut commander une robe 
aux trois suisses. elle n'a pas be- 
soin de le taire pendant que vous 
regardez le grand film le soir. elle 
peut tres bien le taire lapres-midi 
pendant que vous etes au boulot 
De la meme fagon. si vous avez 
besoin d'un horaire de train ou 
d'une information, vous pouvez le 



taire en dehors des emissions qui 
mteresseni voire epouse ou vos 
cninnts On peol tres bien conce- 



mmtel 

Pour une uti.isation professic- 
nelle. e m-ite' est nettemenl ir- 
sutfisant II taudrait une contigu- 
lation du type Mac-Tell, c'est-3- 
dire in rncro avec un modem qui 
peimette le stockage des inlorma- 
lions et leur traitement ainsi que 
lapoei automatique des banques 
de oonnees 

HEBDOGICIEL- Pensez-vouS 
que toutes les vines seront ame- 
nees a devenlt comme ia voire ' 
SENATEUR RAUSCH- „e 
I'espere mais j'espere bien aussi 
etre toujours en avance Je cours 
plus vite < 

HEBDOGICIEL- Le tinance- 
ment de ces installations doit 
venir du gouvernement ou des 
collectives locales ? 
SENATEUR RAUSCH- Ce 
n'est pas a I'impbt de payer a la 
place de lusager. Celui qui veut 
avoir 15 chaines doit payer pour 
15 chaines. A I'inverse, ce n'est 
pas non plus a lusager de payer 
pour financer d'autres services. 
HEBDOGICIEL- Les tarifs te- 
lephoniques frangais sont les plus 
chers du monde ? 
SENATEUR RAUSCH- Non. 
pas les plus chers, mais l aug- 
mentation du prix des communi- 
cations est la plus forte. Et ceci 
vient des ponctions qui sont 
taites dans le budget des Tele- 
coms. Les 20 millions de telepho- 
nes rapportaient normalement et. 
avec une communication a 55 
centimes, les Telecoms gagnaient 
de largent. Des que les socialis- 
tes sont arrives au pouvoir. ils 
ont commence a piquer dans la 
caisse pour renflouer le budget de 
I'etat. 4,2 milliards de francs 
lourds ont ainsi ete ponctionnes 
des octobre 81 pour le budget 82 
Ils ont recommence en 82 pour 
83, puis en 83 pour 84 el la, ga 
ne sutfisait plus: ils ont mis le 
plan informatique a la charge des 
Telecoms ainsi qu'une partie des 
recherches TDF et Spatiales et 
pour essayer de reequilibrer ce 
budget, ils ont du augmenter les 
tarifs telephoniques de 25 % en 
trois mois. 

En ce moment, on fait payer aux 
usagers du telephone la recherche 
inlormatique. le developpement 
inlormatique. le loupe informati- 
que, le bide informatique et le de- 
ficit Bull ■ 



Suite de la page 28 
■ Ois-donc coco, faudrait voir & 
pas n.: lane la coup du grand 
seigneur oedaigneux ! C'est pas 
passque tu ve"ds les casseroles 
au prix des cocottes-minutes 
que tu poux jouer les becheurs. 
Jen ai connu des p'tits malins 
dans ton genre bien avant qu'tu 
commences a reus briser des 
omelettes dans tes Appoils- 
deux-oeufs ! Its se sont tous re- 
UOuves en caleseche un jour 
Ou laulre. les en-dyes du bene- 



mon age, je gerberais sur tes 
courbes de croissance. Tes ac- 
tions a 100 dollars, tu peu* en 
faire du papier listing pour tes 
cabinets d'aisance. Ah ! Elle est 
belle la Kelleconne Valley I Un 
ramassis d'affairistes qui ne 
s'envoient en lair qu'avec des 
campagnes de promotion. Re- 
descends sur Terre, pepere I Le 
monde continue a tourner et il a 
besoin de toil Te laisses pas 
boufter par le consumerisme 
sinon tu finiras par peter dans la 




tice. Z'ont plonge dans les affres 
de la misere quand le peuple a 
compris qu'on lui sirotait le 
porte-monnaie avec une paille 
vereuse. T'es qu'un egoasle, 
Steve Jobard! Tu te prends pour 
la Montagne qua accouche 
d'une souris el las perdu le 
sens des valeurs humaines. 
Tiens. pour un peu, et malgre 



soie en t'emmerdant dans ta 
tour d'ivoire. Pauvre mec. Tiens, 
taudrait pas se fier aux envelop- 
pes exterieures, parce qu'en ce 
moment, je m'sens moins vieux 
el moins con que toi. 
J'ai a peine fini de bfaterer 
comme un chameau que Jobard 
se leve. II est pale, echevele et 
livide au milieu de ma tempete... 
(a suivre) 



DES BONS COCKTAILS 



Apres Nitro et Glycerine, un 
nouveau melange explosif 
vient d'arriver dans nos chau- 
mieres. Battle Trough Time- 
combine mtelligemment deux 
vieux logiciels, tous deux an- 
ciens 'top" au hit-parade des 
ventes en Angleterre Anirog. 
editeur du sus-dit soft, n'a pas 
hesite a commercialiser ce ba- 
tard de Moon Patrol et de 
Time Pilot dans lequel vous pi- 
lotez une jeep (soeur jumelle 
de celle de Moon Patrol) et ou 
les differentes vagues d'agres- 
seurs sont celles de Time 
Pilot. Le tout est servi enrobe 
dun bon graphisme accompa- 
gne d'une sauce musicale qui 
est loin d'etre une soupe Au 
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la page pedagogique 



la page pedago — 



100.000 micros dans les ecoles, c'est bien. 100.000 langages de programmation c'est mieux ! Ce programme de Roland Hubert va vous 
permettre d'utiliser vos propres instructions au lieu du sempiternel basic. Vocabulaire Assiste par Ordinateur ne vous transforme plus en prof 
d'anglais ! 



Mode d'emploi: 

Ce programme est en deux parties: 

VAO 1: Permet de creer son propre patois de programmation. 

Vous redigez done voire programme dans voire jargon et le sau- 

vegardez itou. 

Cependant, comme II garde la logique et les routines de Basic 

(toujours lui...), il peut etre relu. a I'initalisation, dans la langue 

maternelle de voire cher micro. 

Le menu offre4 options: creation, modification, visualisation et 

sauvegarde de voire vocaoulaire. 

Un gestion d'erreur renvoieau menu. 

Les reponses positives se donnent par la louche: ACC 

Les reponses negatives par la louche: EFF 

Le retour au Menu par: RAZ 



Chaque saut de page s'obtient pa r ' ENTREE. 
V.A.O. 2: Une fois que vous avez e'ee un vocabu'aire a oariir du 
programme VAO 1. vous pouvez ufl ser VA02 qui vous perme: 
de relire voire jargon et de limplanier en memoire. 
Vous pouvez Ires bien creer pluseu'S vccao..!a»es dUferents et 
les utiliser suivanl vos besoins. 

Vous pouvez egalement n'uliliser que les Irois oremieres leitres 
d'un mot-cle, lexeculion n'en sera oje plus rao:de 
Prenez garde cependant, dans les cas extremes aux hgnes Icgi- 
ques du TO 7 qui prennent en comptr 255 ca'acleres de Basic. 
Si vous taites tourner sous Basic un programme Irancise el 
abrege, le retour a Basic peut Ironque 1 cenares hgr.es Ces pro- 
grammes auront interet a etre relus et execjtes dans leur jargon 
d'origine. 




suite dun 73 V.A.O. sur T07J07 70 



4020 NEXT 

4922 ATTRBB,8:LQCATEB,24:C0L0R2,8:PRINT" 

ABANDON ET RETOUR AU MENU : ";:CQLOR0,2: 

PRINT"RAZ"CHR*<30; 

4823 ATTRB0.8:LOCAT,E6. 23: COL0R2..6: PRINT" 

LA SUITE t>E PROGRAMME : "; : C0L0R8. 2: 

FP.1NT"HCC"CHR*C3B> 

4025 COLORS, 6: L0CATE6, 4,0:PR1NT"JE VAIS 

5AUVEGARDER V0TRE VOCABULAIRE, PUIS LM 

MPLANTER EN MEMOIRE. SUIVEZ S 

TRICTEflENT LES DIRECTIVES OUE JEVfllS V0U 

i DGNNER POUR VOUS ET POUR M0I,UN G 

RAND MERCI.":PLAY"PPPPPPPPPPPP"tMl* 

4S27 R1=INKEY»: I FR$ = " "THEN4027 

4023 IE R*=CHRJ(22>THEN4030 

482? IF R*=CHR*a2)THEN300 

4038 G03UB75BB:G0SUB 3150 

4031 ATTRB0,0:LOCOTE0, 24: COLORS, 0: PRINTS 

PC(38>;CHRJC30) 

-032 -i TTRB0,0:LOCATE0, 23 :COLOR0,0.: PRINTS 

PC<38>;CHR*(3B) 

4035 IF K125 THEN COLDR7. 1 : LOCATES, i 7, 

:ATTRBB, I: PR I NT "VOCABULAIRE INCOMPLET" : P 

LAYM1**"PPPPPP"!COLOR7,O:ATTRB0.0:GGTO36 



4 040 LULOft7.0:CLS:PPINT:PRINT"H£TTEZ EN 
PLACE UNE CASSETTE VIERGE ET APPUYEZ SU 
R LA T0UCHE ACC" 

4045 IFINKEY*O" M THEN4045 

4850 RJ=INKEY»: IFRJO CHRf <22 JTHEN485B 

4188 PRINT:PRINT"APPUYEZ SUR LA T0UCHE E 

"■ iREfTENT W "h^IETOPHONE" 
" ■■■''-'■ P8IHT:PRINT"POMHEZ-M0I LE NOd DE SA 
UVEGftRBE DE CE VOCABULAIRE EN 9 CARACT 
ERES AU PLUS ":: INPUT NS*: IFLENCNS*>>8 
THEN NSS=LEFT*(NS*,S):PRINT:PRINT"MERCI 

IE PRENDS ";NSs:PL«VMii 

411B OPEN"0»,#l, NSt 

41 15 G0SUB5B88 

4128 CLOSE 

4260 CLS:SCREEN4.w6:pRINT"V0US ETEi SOU 

5 V0TRE LANGAGE A PARTIR CE MAINTENANT 
.BONNE PROGRAMMATION * 

421Q CLEAR3B8.484??:PRINT:PRIMT"21723 0c 
tetS libres":PRIMT:NEU 
4380 END 



4999 REM***i . . . 

****** MISE EN MEMOIRE DU PATOIS **«* 

I*************************************** 

5OB0 F0RI = lT0125:Vivi:'=BVJ(2, I> 

5082 PRINTtl,VtCI) 

5665 IF LENtVfCDl'M THEN5016 ELSE J=!=G 

OTO5015 

5818 FORJ=lT0 LENL V*U > >-l = PQKEADU+l, flSC 

<MID*CV*< I >, J, 1 > > : ADH=ADU*l:NEXT 

5815 P0kEADU + l,ASC«'MIDfiV*<I),J,l>) + lS8: 

h'U-iiilli-1 : ADF=ADU-ADV 

5020 IF V$(I>="<" THEM ADSP=ADU+1 : AD=INT 

lhDSP-256>:SP=ADSP-AD*256 

5625 NEXT 

5635 POKES.H6202. 18?: POKEIH6203, 2I7:P0KE& 

Hd207.AD:POKE5H620B,SP 

5048 RETURN 

599? REM 



6600 BV*(2,0>="000":FOR VF=8T0 KM-1 
6B82 IF BVJi!2,VF) = l "'THEN6150 
6003 IF VF^CHT THEN6B1B 

6005 IF LEN(VJ>v3 AND Vr=LEFTf (BVJ<2, VF) 
.LENfVf>) AND CHT'VF AND kM-.vF THEN LOCA 
TE0.26,e:COLOR8.7:pRINTV*i " RESSEI1BLE TR 
OP A ";BV*(2,VF>:RE:.S = 1 :COT06158 

6006 IF V*=BVS<2,\t:' THEN L0CATE6. 28, 6: C 



0LDRB,7:PPINTV*;" PESSEMBLE TR0P A ";BVf 

^,7F>:RESS=l:G0TO615B 

6067 IF LEFT*<VJ,2:' = BVf<2,VF>THEN LOCATE 

0,26,0:COLORB,7:PPINTVJ; " RESSEflBLE TROP 

A ";BV*(2,VF>:RESS=l:G0TO615B 
6818 NEXT:G0TD6I58 

6188 FORRS=1T010: BEEP: NEXT: PLAY"PPPPPPPP 
PcpFPPPPP":LOCATE0.20.6:COLOR3.0!PRINTSP 

(4B) I GOTCNHStl 

150 RETURN 

198 ' 

199 REM****************** ******** ****** 
****** HAUT DE PAGE 10082088 ***** 
************* ************ ************** 

6268 CLS:L0CATE6,0:C0LOR2:PRINT" APPUYER 
iUR "; :C0LOR0,2:PRINT"RAZ": :C0L0R2,8:PR 

"NT" POUR RETOURNER AU P1ENU" 

6265 LOCATE0, 1 : C0L0R2: PRINT" APPUVER SUR 
"; :C0L0Re,2:PRINT"ACC"::C0LDR2, 6: PR I NT" 
POUR DONNER UN ACCORD" 

6210 LOCATE0,2:COLOR2:PR1NT" OPPUYER SUR 
";:C0L0R6,2:PR1NT"EFF"; : C0LOR2, B: PRINT" 
POUR REPONSE HEGATI VE":LINE<8,27>-(319, 

27J,2 

6215 RETURN 

65?B ' 



**************************************** 
66B0 F0RLRE=1T05: LOCATES, 28, 8:FORDFI^lT0 
5:BEEP:NEXT:C0LOR3,8:aTTRB6, 1: PR INT "PLUS 
D'UNE LETTRE":F0RDFI=1T05: BEEP: NEXT: LOG 
ATEe,2e:PRINTSPCC3e>:NEXT:L0CATE17,9:PRI 
NT" ":C0T01B58 

c9?9 REn***************»****»*********** 

*•**•* TRADUCTION DU BASIC ***** 

***•***••»****•*»************•***••*••(* 

7BBB OTTRBB, 8: LOCATES, 12: COLORS, 8 : PRINTS 

PC'.BB> 

7061 L0CATE4, 12: C0L0R7: FRI NT'TRADUCTION 

LITTERALE : "; 

7085 PRINTTR*<KI1):C0LOR3,e 

7010 RETURN 



,55, 148,116, 128 



,87,142 

8105 DATA 1B3, 136,7 

127, 183, 74, 1 83, 175, 83, 1 

,144,133 

8110 DATA 106,146, 119,1' 

,87, 148 

BUS DATA 112,1B4 

,58, 134.74, 152,87 

127,162 

8120 DATA 109,37, 

23, 117, 116, 77 



S?9? REM****«< 

***** POUR ERREUR 

I**************** 

9008 RESUME 308 

9990 ' 

9998 ' 

999? REM*J***********«*«****)**t**l 

***** FAIT A 0US30Y LE 15^1 1^1934 

: : ;N* tf *n****t *,*. + .., *** ♦♦.... + *,, 



147 ' 

146 REMI*l****«i 



***«« 



DE CARACTERE UNIRUE 
J*********************************' 
150 POKEAH,ASC<:Vf> + 12G:AH=AH-t-l:J=J- 
16B IF V*="<"THENGOSUB200 
178 RETURN 

197 ' 

198 REM* ****************** * »******i 
******* DRAPEAU CODES 16 BITS 
t******.*************************** 1 
200 ADSP=486B1+XL 

210 BD^INTtADSP'-SSt:' 
220 SP=ADSP-BD*256 
230 RETURN 



247 ' 

24S REM**) 



DEFILEMENT POUR RELEVE 



.PEhTICN P.HUBERT 



***** INITIALI5hTI0N **» 

****************** ***«***************9 
18 LLEAR388e, 48680: D1MVI'125>.B*' I 25 j 



MISE 1 



JGUR 



7560 LOCATE8, 10: C0L0R3, 6: ATTRB1, I : PRINT" 
CONTROLE DES TERMES ' " : C0LGR3, 0: ATTRB8, 6 
75B1 YC=0:FORI=1TO125 
7505 IFBVSO, I)=""THEN7515 ELSE YC=YC+LE 

N<BV*(1/D) 

7518 NEXT:GDTO760B 

7515 KM=I-l:ADH=ADB+YC:B*= h " 

7520 RETURN 

76B8 LOCATEB, 1 7: C0L0R7: PRINT "LE VOCABULA 

IRE EST COMPLET JE VOUS LE PASSE EN RE 

VUE. SI UN MOT VOUS SEMBLE DDUTEUX M'H 

ESITEZ PAS A M'lNTERROMPRE PAR LA TOUC 

HE RAZ,SIN0N TOURNEZ LES PAGES AVEC 

N-IMPORTE QUELLE TOUCHE." 

7685 IFIWKEY*=""THEN76B5 ELSE VCBP=HTER 

=l:G0T07528 



; *»»*J 



I**t*| 



***** 



8800 RESTORE 8166 

8010 FORI=0TO99:READ X 

8015 P0KE48568*1,>; 

8028 NEXT 

8036 RETURN 

8180 DATA 156,147,81,125,183,144,192,132 

,75.44, 100, 156.89.76. 149,91,94, 197.36. 10 

S. Ill, 150, 169, 114, 135. 193.88, 184, 143, 152 



**•••* LECTURE FICHIER *••• 

1? IFlNKEVi(^""THEN19 

28 LOCATE0, 1 1, B: PRINT: PRINT"METTEZ VOTRE 
CASSETTE FICHIER EN PLACE ET APPOYEZ S 
UP LA TOUCHE LECTURE. PUIS FAITES ";:C0 
L'jPO,-:PPINT" ENTPEE ":COL0R4,6 
25 IFINKEY*=CHR»I I3>THEN38 ELSE 20 
30 AH=4366l:0PEN"I",#l,AJ 
35 FORN=1T0125: INPUTil , V*<N /: NEXT: CLOSE 
37 ' 

33 REM********************************** 
****** IMPLANTATION MEMOIRE **** 
*************************************** 
40 E0RJ=1T0125 

50 Wf=V*C J>:XL = >;LH.EN' VI.-: IFLEN<V*> = 1 TH 
ENGGSUB15e:G0T050 ELSE FORI=1TO LEN(V*>- 
l:P*=HID*<V«, I, l):POKEBH,ASCCP*>:AH^AH*l 
: NEXT : POKEAH, ASCC RIGHT J <Vf, 1 > >+l 28: AH=AH 
♦liNEXTSPOKEftH.B 

60 F0KEJH6282, 189: POKEIH6203, 217: P0KESH6 
2e7.AD!P0KE&H6288,SP 

67 ' 

68 REM******************** ft************ 
****** PAGE DE GARDE DEPART *•** 
*******************«******************(* 

70 CLS:ATTRB0,1:PPINT:PRINT" VOCAB 
ULAIRE SPEC IFI DUE "; : ATTRB8, 0: PPI NT : P 
PINT" "J21722; "Octets libres" 

71 IFQ=I28THEN CLEAR300, 48688: NEW 
75 IF0=128THEN NEW 

30 LOCATE0, I2,0:PRINT"JE VAIS VOUS LAISS 
ER lE TEMPS DE RELEVERLES EOUIVALENCES E 
NTRE LES VOCABULAIRES.":GOTO30B 



298 REI1***************************»**»** 
******* LECTURE DU BASIC SEDENTAIRE **• 

**************************************** 

306 PRINT:C0LOR6:PRINT"JE PRENDS MON BOS 

IC POUR TRADUCTION ":COLOR6,4 

;.C5 ::=146:F0R N=1T0125 

310 Vi=PEEKlX/: IFVlv 127THEN8J 1N)=B«(N>*C 

HRJ<:Vl-128>:X = X*i:GOT032e ELSEB*(N) = B*'N 

>.CHR*iVl>:X=X-l:GCT0318 

328 NEXT 

397 ' 

398 REM********************************* 
....*** niSE EN PACE LENTE ***« 

*»•**•»**■•*•**••*•*•*•*•*************** 

4BB CLS:SCREEN6.8.8:ATTRB0,8:LOCATE0,0,0 
:PRINT-LA TOUCHE 'STOP' ARRETE LE DEFILE 
MENT ET TOUTE AUTRE TOUCHE LE REPREND" 
485 L0CHILB,22,6:PPINT"L H TOUCHE 'RAZ- V 
OUS FERA SORTIR DEFINI TIVEMENT DU PROGR 
AMME"CHR*(38):C0WS0LE4,£B,, 1 • COLORS 8- CL 



(I)! 

421 BOX'0,22>-C319, 168), 7 
4E5 K = K-£: I:"),. 2>3THEWf=™ 
430 1FI=1£5THENI=0 
435 IFINKEY*=CHRJil2)THEN460 
448 PLAY"P-!NEXT 
450 END 
457 ' 



****... 



i****. 



I F'EM*i 



ISO INPUT"N0M DU FICHIER VOCABULAIRE : 



PRISE DU NOM FICHIER 



460 C0NS0LE6,24,,6:hTTRB6, 1 : CLS: C0LOR7, 1 

:L0CATE8. 12,0:PR1NT"ATTENTION SORTIE DEF 

IMITIVE DU PROGRAMHE" 

465 FORJ= I TO 10; BEEP: NEXT I COLORE, 3: PRINT: 

PRINT:PRINT"ENTREE";:COLOR6.0:PRINT" POU 

P ACCORD" 

46? lFINi;EV*0""THEN469 

4 7C Rf=INC>EYt:IF Ri= l: "THEN47B 

471 IF R»=CHP*n3>THEN475 ELSE40B 

475 CONSOLE0,24.,0:COLOR4.6:O=12S.-GOTO78 

547 ' 

54S REM* ********************** ********** 

******* PROGRAMME COMPLEMENTAIPE *** 

******* BU V.A.O PRECEDENT *(* 

***********•*********((«*•*******•(***•* 



la page pedagogique 



la page pedago — 



AU RAYON DES ANDROIDES 



Le Commissariai a I Energie 
Atomique a ouverl un otfice de 
la robotique el de la producti- 
ve. II s'agit ict de coordonner 
I ensemble des travaux qui se 
font dans ce domaine. Le but 
avoue est de realiser ou de 
perieclionner des robots capa- 
bles de se deplacer dans des 
milieux hostiles. On pense bien 
sur aux centrales nucleases. 
Cependant. il exisle bien d'au- 
Ires "milieux hostiles": la poste 
du 20eme arrondissement, les 
impots de la rue Paganini. les 
commissariats de quartier. 
L'Office elant ouverl a lout pro- 
jel. je propose que Ton cree 
des robots susceplibles de 
nous remplacer chaque fois 



nous devons nous rendre dans 
I'un de ces "milieux 'hosliles" 
pour aflronter une cohorte de 
dangereux ronds de cuir (lou- 
jours) anonymes. 




PERTE ET TRACAS. 



Si )e vous dis que le piratage 
informatique fonctionne bien 
en France, mon information 
aura lair aussi trafche qu'un 
hareng de huit jours. Par 
contre. ce que vous ne savez 
pas. c'est le cout global de ce 
piratage. Le true des petits 
ruisseaux qui lont les grandes 
rivieres. Pour I'annee 198-1, on 
vient d'avoir les estimations: 
dans le domaine des jeux sur 
micro-ordinateurs le piratage 
des cassettes et disquetles a 
entraine des pertes de lordre 
de 70 millions de francs. El 
quand on regroupe toutes les 
categories de logiciels (jeux + 
prolessionnels) on arrive au 
chiffre etonnant de 320 millions 



de francs. ■ 
faire lourd. On se demande 
commenl les editeurs arrivent 
a tenir le coup. A cette ca- 
dence, les pirates vont exsan- 
guer le marche officiel. les au- 
teurs ne trouveront plus 
d'edileurs 1 et les pirates n'au- 
ront plus de programmes a pi- 
rater. La bouCle sera bouclee 
et lout le monde aura lair con. 
CQFD 




RANK XEROX S'INSPIRE 
D'EDOUARD LECLERC 



A bas les lonctionnaires. Vive 
liniliative et le gout de I'entre- 
prise, Ca pourrait elre le nou- 
veau slogan de Rank Xerox 
qui propose a certains de ses 
salaries d'ouvrir leur propre 
magasin et de devenir conces- 
sionnaire exclusil Rank Xerox. 
Le grand specialists de la re- 
production a done "copie" les 
melhodes d'Edouard Leclerc 
dont les gerants de magasins 
peuvent se mettre a leur 
compte. Les boutiques Xerox 
tournent bien et se multipiieni. 
En particulier depuis ('appari- 
tion de la mrcro-informatrque 
qui represents plus de dix pour 



cent du chiffre d'affaire. Xerox 
prevoil que la micro tiendra 
pres de cinquante pour cent de 
ses venles en 1990, Comme 
quoi il vaut mieux vendre les 
ordinateurs plutdt que de les 
fabriquer. Et il vaut encore 
mieux distribuer a des reven- 
deurs independants plutbl que 
de vendre soi-meme. 
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Formation a I'assembleur 



COURS D'ASSEMBLEUR 



Depuis plusieurs semaines, 
vous profitez d'un cours d'as- 
sembleur decompose en deux 
parties essentielles (I'une theori- 
que. I'autre pratique). 

Cetle semaine le 6809 du T07. 
T07 70 en prend plein la me- 
moire. La semaine prochaine ce 
sera le tour du 6510 du 
COMMODORE 64. 



N"57- 
N°58- 
N°59- 
N°60- 
N°61 - 
N°62- 
N°63- 
N D 64- 
N°65- 



N°69- 
N°70- 
N°71 - 
N"72- 
N°73- 



. ORIC 1. ATMOS 

• APPLE 

• T07, T07 70 

. COMMODORE 64 
. ZX 81 

■ ORIC 1. ATMOS 
. APPLE 

- T07. T07 70 

. COMMODORE 64 
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• ORIC 1. ATMOS 
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• T07, T07 70 

. COMMODORE 64 

■ ZX81 

• ORIC 1. ATMOS 
. APPLE 



- Supposons que I'horloge CK 
soil au niveau 0. A ce momenl 
le Set-Reset (S-R) mailfe est 
dans I'etat memoire quels que 
soient J et K. 

- Supposons que Ion positionne 
J et K a 1, puis CK a 1. A ce 
momenl les sorties du S-R maf- 
Ire vont positionner le S-R es- 
clave, mais ce dernier ne sera 
pas influence par ce change- 
men! d'etat a cause de CK qui 
maintient un sur les entrees 
des Nands du S-R esclave. Ft- 
nalemenl le S-R maitre sera re- 
copie dans le S-R esclave lors- 
que CK sera egal a 0. 

- SI J = K = 0. le S-R maitre 
sera loujours dans son etat me- 
moire. II s'en suit que la bascule 
esclave est insensible a I'hor- 
loge. 



a. r esclave est dans I'etat Reset 
(Q = 0). La sortie du Nand 1 est 
a el cede du Nand 2 a 1 . Le 
S-B maftre est done dans I'etat 
Reset (Q = et q = 1). Quand 
CK passe a 0, I'esclave se re- 
trouve alors dans I'etat Set. 

b. I'esclave est dans I'etat Set 
(Q = 1). Le maftre est dans 
I'etat memoire precedent, c'esl- 
a-dire celui qui a positionne I'es- 
clave dans I'etat Set. Done 
quand CK va redescendre le cir- 
cuit va rester dans I'etat Set. 

Dans un cas comme dans I'au- 
lre. si J - 1 et K la bascule 
J-K est remise a 1 quand CK 
passe a 0. De meme elle est re- 
mise a si J = et K = 1 et 
que CK passe a 0. 

En resume, la bascule J-K est 
un dispositif qui fonctionne sur 
le front descendant de I'horloge. 
Nous pouvons donner en rac- 
courci les quatre etats possibles 
pour les entrees J et K et par la 
meme en deduire I'etat general 
du circuit. 



3. J ■ el K = 0: la bascule 
est insensible a I'horloge. 

4. J = 1 et K ■ 1: la bascule 
change d'etat sur te front des- 
cendant de I'horloge. 

C'esl cette derniere possibilite 
qui est exploitee dans la mise 
en oeuvre des compteurs. que 
nous etudierons prochainemenf 
dans ce cours. Mais avant de 
nous attaquer a un si gros mor- 
ceau, nous aliens voir comment 
est concu et realise un regislre. 
Vous vous souvenez certaine- 
menl dans le debut de noire 
cours du "Registre d'Etats" qui 
nous permettail d'avoir acces a 
un certain nombre d informations 
concernant les calculs effectues 
par le micro-processeur. Nous 
utilisions certains des bits de ce 
registre pour realiser des tests. 
Un autre des registres que nous 



connaissons bien est laccumu- 
lateur. en commun a tous les 
processeurs qulls travaillenl en 
quatre, huit, seize ou (rente 
deux bits. D'autres registres, ap- 
peles "Registres d'lndex". don- 
nent acces a des operations 
plus complexes (gestion de 
piles, modes d'adressage plus 
etendus...). Leur nom varie sui- 
vanl les labricants de micro-pro- 
cesseurs. par exemple pour le 
6502 et le 6809 on dispose de X 
et Y. Vous voyez done, j'en suis 
persuade. I'importance que peu! 
avoir ces circuits qui simulenl 
des registres. 

De par la complexity interne de 
ce circuit, nous ne etendrons 
pas outre mesure sur son 
schema fonctionnei. II vous suf- 
fira de connaitre les points sui- 
vants: si vous voulez creer un 
regislre de N bits, il vous faudra 
integrer N bascules D dans le 
circuit. Un registre est un organe 
qui sert a memoriser une infor- 
mation, de ce fait une 
commande de "chargement" du 
registre devra etre disponibie 
C'est par cette commande que 
te micro-processeur comman- 
der a les changemenfs d'etat du 
registre. Avant d'expliquer bn'e- 
vement I'effel de LD {LoaD ou 
chargement), regardez la repre- 
sentation dun regislre sous 
forme de brique informatique et 
sous lorme de circuit electroni- 



REGISTRE EN BRIQUE 
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En fonction de la valeur trans- 
portee par le fil de commande 
LD, les bascules D auronl deux 
componements possibles (pour 
deux etats de LD possibles), 
a, si LD - 0. loutes les bascu- 
les D fonctionnent normalement. 
Elles recopient done en sortie la 




b. si LD = 1, I'etat de la bascule 
sera lonclion de I etat de la va- 
leur en entree. Considerons la 
bascule i du schema fonctionnei 
ci-dessus: 

- si ai (valeur en entree de la 
bascule i) est egal a 0, ta bas- 
cule i sera remise a zero. 

- si ai = 1. la bascule i sera re- 
mise a 1 . 

De cetle maniere. si LD = 1, 
nous pouvons activer les deux 
entrees specitiques aux bascu- 
les quatre entrees (en effel si ai 
■ nous avons comme resultat 
lequivalent dun Clear et si ai = 
1 alors on obtient un Preset). 

Mamtenant que vous avez pu 
vous rendre compte des possibi- 
lites de I'association de plu- 
sieurs bascules D ensembles, 
nous aliens tenter une expe- 
rience similaire avec des bascu- 
les J-K (ou bascules Maltre-Es- 
ciave, je vous le rappetle). Nous 
n'obtiendrons pas cetle fois-ci 
un organe de memorisation du 
type registre, mais plutot ce que 
nous pouvons nommer des a 
present un compleur. Comme 
nous avions pu le voir prece- 
demment, le compleur est I'un 
des organes vilaux de lordina- 
leur (au meme lilre que les re- 
gistres ou TULA). 

Commencons par en regarder le 
schema (onctionnel avant de 
baser notre etude sur le chrono- 
gramme qui lui est associe. 
Nous nous limilerons a un 
compleur a qualre bits (ce qui 
nous permel de compter de a 
15) 




L'ASSEMBLEUR PRATIQUE 

Langage machine... sur T07 




Comme promis. voici Implica- 
tion detaillee de noire fantasti- 
que exemple du numero 69: 

32001 LDA § 128 -On charge le 
registre A avec la valeur 128 en 
adressage immediat. 
32003 LDX I 16384 -De la 
meme maniere. le regislre 
d'adresse est charge avec la va- 
leur 16384. cette valeur corres- 
pond a I'adresse du premier 
octet de la memoire ecran. 
32006 STA ,X -On place a 
I'adresse chargee dans X, la va- 
leur se trouvani dans A (en 
adressage indexe). 
32008 CMPA # 00 -On 
compare te registre A, avec la 
valeur 0. 

32010 BEO 14 -Si la condition 
ci-dessus est rempiie. effectuer 
un branchement 14 octets plus 
loin, soit en 32026. Tiens done ! 
Me direz-vous. 32010+ 14 ca 
ne tail surement pas 32026. Ex- 
plication: L instruction BEQ per- 
met un branchement relatif au 
contenu du compleur de pro- 

instanl I'adresse de la prochaine 
instruction a executer. En loc- 
currence. iors de ['instruction 
BEQ en 32010. le PC contient 

32011. en 32011 ou se trouve la 
valeur 14. le PC pointe en 

32012. C'est a partir de 32012 
que les 14 octets seront comp- 
ter, soit 32012+ 14= 32026. De 
la meme maniere. (instruction 
BNE (branch if not equal) que 
nous rencontrerons plus loin, 
permel un branchement relatif 
au PC lorsqu une condition nest 
pas rempiie. Le nombre place 
dans I 'octet qui suit ces instruc- 
tions, esl code sous la forme du 
complement a deux. 

32012 LSRA -Dans le cas 
contraire (condition ci-dessus). 
eflectuer un decalage vers la 
droile des bils du registre A 
(LSR= logical shift right). De 
cette maniere, nous effect uerons 
une division entiere par deux de 
la valeur placee dans A. Attar- 
dons-nous quelques insiants: au 
depart nous avons A= 128. soit 
en binaire 10000000. Notre ins- 
truction provoque done un deca- 
I age des bits vers la droite et 
met le bit de gauche a 0. Celui 
de droite sera place dans I'indi- 
cateur de retemie C (bit de 
droite du registre d'etat que 
nous etudierons plus tard). mais 
dans notre exemple. cela n'a 
aucune espece d'importance. 
Nous obtenons done 01000000, 
qui equivaul bien en decimal a 
128 2 soit 64. Sachez que I'ins- 
truction LSL (logical shift left) 
ofoduit I'effet inverse par deca- 
lage logique a gauche, soit la 
multiplication par deux. 

32013 LDB # 255 -Le registre 
B, dans f'exemple qui nous oc- 
cupe. n'a pas d'utilite: nous 
allons done nous en servir pour 
effectuer une boucle d'attente. 
Chargeons-le au maximum de 
sa valeur. soit 255. 

32015 OECB -Decrementons ce 
registre. 

32016 CMPB # 00 -Effectuons 
la comparaison de B decre- 
ments avec la valeur 0. 

32018 BEQ 03 -Si la condition 
B= est rempiie, effectuer un 
branchement 3 octets plus loin. 



soit en 32023. 

32020 J MP >32015 -Si la 
condition nest pas rempiie, faire 
un saut en 32015. 
Cetle procedure equivaul en 
Basic a: FOR B= 255 TO 
STEP -1:NEXT. 

32023 JMP >32006 -Le registre 
B est done a 0, la decrementa- 
tion de B nous a permis de 
creer une pause. Celled effec- 
tuee. faisons un saut en 32006 
ou nous placerons a I'adresse X 
la nouvelle valeur de A qui. ne 
I'oublions pas, a ete divisee par 

32026 LEAX 1.X -Cette nouvelle 
instruction (load effective 
adress). nous permel de chan- 
ger la valeur de X, exemple: 
LEAX 20, X ajoutera 20 a ran- 
cienne valeur de X (en adres- 
sage indexe bien sur). Dans le 
cas present, lancienne valeur 
de X sera augmenlee de 1. 
32029 LDA # 128 -On replace 
dans A remis a 0. la valeur 128. 
32031 CMPX # 24384 -On 
compare la valeur de X avec la 
valeur 24384 qui correspond a 
la fin de la page ecran. 
32034 BEQ 03 -La condition ci- 
dessus rempiie, branchement 3 
octets plus loin en 32039, fin du 
programme. 

32036 JMP >32006 -Condition 
non rempiie, effectuons un saut 
en 32006 avec X augmente de 

32039 RTS -X contient done 
I'adresse 24384, done fin de 
programme et retour au Basic. 

Bien compris seulement voila, 
pour linstant on incremente. on 
decremente c'est facile mais moi 
je voudrais pouvoir utiliser une 
serie de valeurs precises dans 
un but bien defini. Comment sto- 
cker une serie de donnees et 
les utiliser le moment venu , un 
peu comme des DATA . Vous 
voyez ce que je veux dire ? 
-Coincidence ! Nous allions jus- 
temenl vous parler de deux nou- 
veaux registres U et S de 16 
bits chacun, qui n'ont pas d'au- 
tre but que celui-la. II s'agit en 
fait de la pile utilisateur U et de 
la pile systeme S, ou il nous 
sera possible de slocker comme 
vous dites, ou plutot d'empiler 
(d'ou le nom de PILES) des 
donnees et de les depiler. Le 
principe d'empilage et de depi- 
lage est simple a comprendre. la 
premiere valeur rentree sera la 
derniere sortie, exactement 
comme une pile d'HEBDOGI- 
CIELS. 

Les instructions specifiques sont 
les suivantes: 

PSHU (push registers into user 
stack), transfert de ta valeur 
contenue dans un registre, dans 
la pile utilisateur U. 
PULU (pull registers from user 
stack), transfert de la derniere 
valeur entree dans la pile utilisa- 
teur U, dans un registre. 
PSHS (push registers into hard- 
ware stack), transfert de la va- 
leur contenue dans un registre. 
dans la pile systeme S. 
PULS (pull registers from har- 
ware stack), transfert de la der- 
niere valeur entree dans la pile 
systeme S. dans un registre. 
Soit lexemple suivant pour ten- 
ter d'illustrer notre propos. A 
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noter que nous prendrons des 
maintenant I'habitude de nous 
exprimer comme des grands, 
c est-a-dire en HEXA (symbolise 
par $ en assembleur). Get 
exemple nous interpretera la 
gamme ascendanle et descen- 
dante de DO majeur. 

7D01 LDU 



7D1C F 
7D1D F 
7D1E F 
701 F F 
7D20 F 
7D21 F 
7D22 F 
7D23 F 
7D24 F 



LDU # S 7FFF -On positionne la 
pile U a I'adresse maximum de 
la memoire utilisateur. En effel, 
il taut savoir que lempilage s'ef- 
fectue "en sens inverse" c'est a 
dire que I'adresse de U est de- 
croissante. On a done interet a 
situer le debut de cette pile a la 
plus haute adresse utilisable. 
LDX $ S 7D1C -On charge le 
registre d'index X avec la pre- 
miere adresse de la table (une 
table est lequivalent Asssem- 
bleur des DATA du Basic), ou 
sera placee la premiere don nee 
a trailer. 

LDB ,X+ -On charge dans B la 
valeur qui se trouve a I'adresse 
placee dans X, cette adresse 
sera ensuite incrementee, 
PSHU B -On empile le contenu 
de B dans la pile U (Ne pas ou- 
blier que la prochaine adresse 
de U seraegale a U-1). 
JSR >$ E81E -Gosub au sous- 
programme NOTES , qui permel 
linterpretation de la note. 
CMPB # S 3D -On compare la 
valeur de B avec la derniere va- 
leur placee dans la table, soit $ 
3D. 

BNE F5 -Si la condition ci- 
dessus nest pas verifiee, bran- 
chement en mode complement 
a deux (F5= -11) 11 octets en 
arriere. soit en S 7D07. Rappe- 
lez-vous, le PC en S 7D1 1 ou se 
trouve -11. pointe en $ 7D12; on 
comptera done £ 7D12-11= S 
7D07 (en decimal pour plus de 
comprehension: 32018-11 = 

32007), PULU B -La condition 
est verifiee. eh bien on depile 
maintenant le contenu de U le- 
quel contenu sera chaque fois 
place dans B. 

JSR >$ 81 E -Gosub au sous- 
programme NOTES . 
CMPB # $ 30 -On compare la 
valeur de B avec la premiere va- 
leur placee dans la table, soit $ 
30. 

BNE F7 -Si la condition n'est 
pas rempiie, branchement 9 
octets en arriere (F7= -9). en S 
7D12. 

RTS -Condition rempiie, fin de 
programme. 

FCB -Les FCB ne sont pas des 
mnemoniques. lis definissent 
simplement les constantes Iors 
de lemploi d'un assembleur. 
nous vous les avons laisses a 
titre indicatif. Nos donnees 
(equivalentes aux constantes 
DATA) seront done rangees de 
S7D1C a$7D24. 

Euh.. Ben c'est toul pour cette 
fois. Salut. bon courage el a la 
prochaine. 

Franck CHEVALLIER 
Jean-Claude PAULIN 
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DEMANDEZ LE PROGRAMME soft-parade 



Achetez vos logicieis les yeux fermes, nous les avons testes pour vous ! 

Nous avons selectionne pour vous les meilleurs logicieis actuellement disponibles en France. Nous ne 
pretendons pas que cette liste est complete et definitive et ilest evident que nousyrajouterons regulie- 
rement des programmes. Pourtant, vous chercherez en vain certains programmes quijouissent d'une 
bonne reputation et qui se vendent surtout grace a la publicite et aux conseils des vendeurs qui ne peu- 
vent pas connattre tous les logicieis disponibles. 

Les prix sont, nous I'esperons, les meilleurs du marche et les abonnes - anciens ou nouveaux - benefi- 
cient en plus d'une remise de 10 %. Si vous efes nombreux a nous suivre dans cette experience nous 
pourrons rapidement arriver a faire baisser les tarifs des fournisseurs pour atteindre I'objectif que nous 
nous sommes fixe: ramener les prix a une plus juste valeur ! 

Les classements sont farts en fonction de I'interet du programme et ne tiennent pas compte des prix, 
c'est a vous dejuger de I'opportunite de la depense. N'oubiiez quand meme pas que si le rapport quail 
te/prix est mauvais, le logiciel ne peut figurer dans cette page ! 
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REVENGE OF THE MUTANTS CAMELS 



HOVER BOWER 



KMULATEURS DE VOL AND C° 



MISTER ROBOT AND HIS ROBOT H 



SEVEN CfTlES OP GOLD 



PAINTING JOE 

RAID OVER MOSCOW, 



DRIVING DEMON 



MANOIR DU Or GENIUS 



MASK OF THE SUN 



ONE-ON-ONE (Dr J * Larry Bird) 
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PINBALL CONSTRUCTION 



>E RUNNER CHAMPIONSHIP. 



LUNAR LANDER 
GHOSTBUSTERs" 



COMMODORE 64 



ORIC1/ATMOS 



CHIFFRES ET MOTS 



Amateurs, futurs candidats ou champions confirmes, Le joueur designe pa. 
TO7 vous propose ici un entrafnement de qualite. 



verte a 6 secondes pour enlrer sa 
reponse. Pour le nombre de lettres, la saisie s'effectue directement. 
Pour les chiffres, tapez entree apres la reponse. 
Patrick BONNIN Entree des reponses : 

Pour les lettres. tapez le mot + entree. I'orthographe reste a contro- 
ler par les joueurs (en cas de faute. tapez seulement "entree"). 
Pour les chiffres. entrez tes operations sous la forme ; Nombre 1. 
operation. Nombre 2 = resultat (sans espace + "entree"), 



THOMSON T07, 
T0770, 
MO 5. 



s jeu televise, soit 22 se- 



, 2 lettres). Debulez le tirage en apouyant sur si vous d 'esirez modifier ou augmenter les DATA (300 a 320), modi 
fiez la ligne 3010 : T = INT (RND ' nombre de mots stockes) + 1. 



lODI F~ J C^T I C 



:'9THENPniNTSPC(9-Lf>J<N*( 1 

irjpijTUAiT est, simiiee. nais vous 
Oevrez Bdouyer sur une toucne suar 
a*e+"-feeUjer une envree. 

1510 LOCATE JH26 

=0TOSSB 

isia IFH*ETr*< i- 

1530 L0CflTEJ2n££.>9:PRINT*COMBIEN ";iFORl 

3S32 IFINKEYK >--THEN INPUT NJ£ EL5ENEXT 



"COHEIEN - ;;FORI 
IPUT NJ1 ELSEfctiXT 



1 ' LES CHIFFRES ET LES LETTRES 

2 ' POUR TO? ET TQ7-70 

3 ' PATRICK BONNIN 

5 C0NS0LEB,24:CLS:5CREEN2,8,8 
19 Jt=l:J2«8iV=e:H=-l 

14 PRINT'P. BONNIN 
DEC 84- 

15 ATTRB1, HL0CATE8,5:PRINT"LES CHIFFRES 
■:L0C0TE19,7: PRINT"',": LOCATES, 9: PRINTLE 
S LETTRES" 

36 L0CATE3/13!ATTRB6, 1: INPUT"N0H DU PREM 

IER J0UEUR"jN«<8> 

46 L0CATE2, 16:flTTRBe, li INPUT-NOH OU DEUX 

IErlE JOUEUR-JNKl) 

50 CLS:C0LOftB,4iATTR81,8:LOCATEl,15:PRIN 

T USING"!; X*;N*(0> 

68 L0CATE21,15:PRIHT USING"?. \ m iHt 

70 B0XFt44,132>-<188, 154J.7 
90 B0XF(212,I32>-<268,154>,7 
98 L0CATE6, 18, B: ATTRB1, 1 :C0L0R7, 8 = PRINT' 

108 L0CflTE27,ie:PRINT-eee" 

118 CONSOLEO,13:ATTRB1,8 

120 L0CATE3,l:PRINT"*TIRAGE AU SORT*" 

138 ATTRB8,BIL0CATE7,5:PRINT"APPUYER SUR 

UNE TOUCHE" 
148 R*=INKEY»: Jl = ( Jl-M >flOD2i J2=(J2+1 >M0D 
2:IFR*="" THINKS 

145 L0C«TE7,E2:PRINT I, **APPUYER SUR UNE T 
GUCHE**" 
158 V=V*1 

151 H=(H+1)«0D3 +1 
153 J1=CJ1+I)M0D£: J2=< J2»l JK0D2 
155 ATTRB1,|:LOCATE3+J1*21,21:COLDR2,0:P 
RINT"*" 

160 L0CATE8*J2*21,21:PR1NT" " 
1,5 ON U GGSUB1808, £800,2880 
166 CQNSULE13.24 
J-0 TT<J0>"TT<JOJ*N 

190 COL0R7,B!LOCATE6+JO*21,18:PRINT USIN 
G-4#i";TTCJ0) 
198 IFV<22 THEN158 
200 IFTT(0>>TT<!> THEN «.*=N*(0> ELSE N*= 



£18 CONSOLES, 1 3 = CL5: LOCATE 18, 5, Q: PR [ HT 
RhV0":L0CATE8,8:PRINTN* 
£28 END 

300 DATA AEhNDONNE-hBASGURDI, A8ERRAMTE 
'BONDANCE,ABfiEUV0IR,ABS0RBANT,A8STRAITE 
E:UPDITE,ACCELERER.«CCENTUEE,ACCiDENTE 
;i:CnMOC'E.nCC0nPLIE,HCCQRDEGN,ACC0'J[>OIR 
CCUE I LLr,ACHETEUSE. ACROBAT IE, ADHERENCE 
CTUALITE 

318 DATA aDJGINDRE.hFRICAINE,AGITAT£UR 
L LUNETTE. AL I MENTER. AMBULANCE, AN I HOLIER 
MM.iTEiJfr,ANNULAIPE.*PPLirjUER,APPRECI£R 
KENCEUP,ASTRONOME.rtUDIT0IRE,AvOISINER. 
VEUGLANT,8ATAILLES,6ANALISEE,BALANCTEB, 
ENEFIOUE 

"28 DATA 8LESSANTE,B0NBARDEE,B0ULEV ""* 
OURSIERE,BRANCHIES,BRQCHETTE,CAISSIERE, 
ANALISEE,CEREMONIE,CHAGRINES,CHEVREUIL 
"~0YENNE, CLIENTELE, CONF I ANCE.DECHANTER, 
EHAR8UER,DEP0URVUE,DESHERBER,DICTOTURE, 
-LlGENCE,ECKANCEUR,ECLAIRCIE,EFFRAYANT 
ECTRODE 

088 ' CHIFFRES 

010 CONSOLES, 14!CLS:SCREEN2,8,B:ATTRBI. 
:: PRINT" LE COHPTE EST BON" 

815 B0XF<52,46)-<276,64J,3 

816 B0XF(I32,28>-(188,43>,7 

017 ATTRBI, l:L0CATE17,4,8:PPINT - 
020 R*=INKEY»:Y=RND: IFRJ=" j THEN1820 
838 FOR 1=1 TO 7 
848 CH(I) = INT<RND*14m 
058 IF CHdKll THEN1B76 
866 CH(I>=(CHCI>-18)»25 
878 IF I>J THENU00 
0B8 R=CHCI> 
098 GOT01288 
166 0<I>*INT(RND*4>+1 
118 ON 0(I> G0TO1128, 1140, 1160, 1180 
120 R=R+CH<I):IF R>999 THEN R=R-CHCI::C 
OTO1180 
130 G0T01E88 
148 R-R-CH<I>HF R< 1 THEN R=R*-CHi I > ■■ GOT 

nee 

158 C 



) GOTO 1288 

» IF INT<R-"CH(I)>;>R,CH<I> THENliet 

I ft"R/CH<IJ 

1 S<I>-CH<IJ!T(I)=R 



i IF R<»B THEN 1838 

I ' MELANGE/EDITION 

I ATTRBB,ltC0L0R7,6 
) F0RI=1 T07 
I A=INT<RND«7>+1 
I IFEtHfiJ^H IHUMJfeU 
1 IFCHCAX1B THEN L0CATE3*4*I 
A)iG0TO14BB 
1 LQCflTE3+4*I,7:PRINT USING"! 



.485 PLAY-DOP" 
.416 NEXT! 
428 ATTRB1, HLGCATEi: 



1450 GOSUB5088 

1588 ' REPONSE 

1585 NJ1=8=NJ2=9: J0=J1 : ATTPE8, 8 

1518 L0CATEJK26.9: INPUTUA IT1 5301 6. "COMB 

IEN ";nji 

1536 L0CATEJ2*26.9:IIjPUTWAIT1535:A, ■',:■;. he 

I EN ";NJ2 

1535 RJ=NJ1 

1540 IFflBS<R-NJ£.-;MfS(P-Nji:' THEN J0=J2: 

RJ=NJ2 

1545 LOCATE I 4+ JO* 11, 9: COLORS: PRINT 1 '*" 

1558 LOCATEI5,9:PRINT"<REPrjNSE> ,1 :COLOR0, 

i*88 IFRJ=R JHEN N=8 ELSE N=6 
16B5 F0PI=1 T06 
1618 IF I>3 THEN L0CATE28j 6*1 
1628 INPUT S* 

1639 N1=VALCS*> 

1640 L=LENiSTR*iNl > ' 
16M 0*=MID1(S*,L, 1 I 

i-p-.i Nz-vAL(Mii:'ti?*,L+i :■> 

•678 L=LEN<STR*<N2>>+L 

1680 N'.I) = VfiL<niD*lSJ,Lti:'> 

1685 NS=Nl:GOSUB1800 

1666 NS=N£iGOSUB1360 

1687 IF E»l THEN1736 




1721 E=l 
17££ IFO» = "«- ANI> 
1 723 jFN£(.>8 THEN 
£ THEN E=8 



F0»=' 



1"£4 IFO*="+" AND N< I > =N 1 +M2 THEN E=0 

1^£5 IFO*="- u AND N<I>=N1-N£ THEN E=0 

i"30 IFE=1 THENJO" J0 + i:'MOD£: I=6:PRINT"E 

RREUR":PLAY*S0DOSOP" 

1748 IFN(I)=RJ THEN 1=6 

1758 NE>;TI 

1777 F0RI=1 TO 58Q:NEXTI 

1799 ATTR81,l:RETUPN 

1-00 F0RJ=1 T07 

1385 E=l 

1310 IFNS=SCJJ THEN E=0: St J >=8: J = 7 

1820 IFNS=NkJ> THEN E^0: N( J >=8: J=7 

1838 NEKTJJRETURN 

£888 '--LETTRE--PRESENTATION 

£610 LOCATES, 8, 8: CONSOLES, 13: CLS:SCREEH£ 

,0.8:ATTRei,0:PRINT ,, LE MOT LE PLUS LONG" 

£050 B0>:F(S2,S8;-<£68,68),3 

£060 LINEf52,44J-!268,44>,-l 

£065 ATTRBl,l:COLOR0,7 

£076 F0RI=1 T09 

2088 X=4*I*3:XL=52+24*I 

2098 LOCATEX,4,0:PRINT" " 

2180 L0CATEX,7:PRINT" " 

2118 LIKECXL, 3B>-i XL, £B>,-1 

£128 NEMTI 

2130 R*=INKEYJ: IFR*="" THEN X=RND:G0T021 

38 



NEXT I 

FORI^l T09 

Y(I> = INTIRND*9 , '-*1 

IF 1 = 1 THEN3140 
3110 FORJ-1 TO 1-1 
J120 IFY<I>=Y<J> THEN 3090 
3130 NEXTJ 

3140 LOCATE4+I*3,4:C0L0R8,7:ATTRBl,l:PRI 
WTL*(Y<I)>:PLAY"L805SOP" 
3150 NEXTI 
3166 GOSU85000 

3S00 ' REPONSE 

3205 NJ1=0:NJ2=0: JO=Jl: ATTR0B, 

3210 LOCATEJK20, 10: ATTRB8, BiPRINT-NOMBR 

E DE LETTRES"; 

3215 FORI=1TO680!R*=INKEY* 

3216 IFR*<>"" THENI=600:PRINTR»:NJ1=VHL' 



l:PRINT"N0H8RE DE LETT 



3234 t 

3235 t 

3£40 1 
3250 L 

3255 L0CATEJ0*24,ll: INPUT""JR* 
3260 IF LEN<fi*>>N THEN J0^( JO+1 >PtOD2: GOT 
G3305 
3262 C=0 
3265 F0RI=1 TON 
3270 F0RJ=1 [TO 9 

3£75 IF plIDrtRt, I, 1>=L*(Y(JJJ THEN ATTRB 
1. l:L0CATE4 + I*3, 7: PRtNTL*<Y( J> ) : L*(Yi J) > 
L0CATE4+J*3,4:PRINT" U :C"DHU«H 



3281 



IEXTJ 



I CH(A: 



32B5 PLAY"05D0" 

3290 NEXTI 

3295 IFCON THEN J0=U0+1 5H0DE: GOTO3305 

3300 IFN=9THEN3325 

776E -.0T03386 

3385 ATTRei,8:L0CATE14, 1, 8: PR1 NT "ERREUR' 

:PLAY"S0DOSOD0P" 

2306 FORJ-1 TO 500:WEXTI:ATTRB1, 1 

33B7 F0RI=1 TO 9 

7310 L0CATE4+I*3,7:PRINT HIDJIA*. 1 , 1 '■ 

3726 WEXT I 

3325 F0RI=1 TO 500:NEXTI 

3336 RESTORE:RETURN 

5080 ' CHROWO 

by0S LOCftTEa.9,9:BO>:Fi-0, 7£ I-C319, 80 > , 1 

5818 F0RI=319T08 STEP-1 

->;.;ij rr lPJ = e T046! NEXTJ 

5630 LINEfI,72;-<:i,80>,-l 

5640 NEXTI - 

5058 PLAV"L2403DOS0(1I":RETURN • 






GRAVITATION 



CANON 



C'est pour demain !... AlOrs famtliarisez-vous des main- une caverne sur une planete a forte gravite. Votre fusee de recupe- Deplacement : 

tenant aux problemes poses par la gravitation lors d'un ra'io" ne peut nl attenir, ni heurter les parois de la caverne. La recu- Droite : Fleche de droite, 

attprrie;c;anF' «:ur nuplnup Inintainp nlanptp peration des containers s'effectue en vol au moyen de la touche F6 Gauche : Fleche de qauche, 

auemsbdge bur queique luiriidine pianeie . (la fusee doit-efre dans laxe du container et a une altitude moderee Propulsion : Fleche du bas, 

Jean Pierre LIMOSSIER par rapport a celui-ci). Pause : Fleche du haut. 

Vous disposez d'une quantite limitee de carburant (materialisee a La propulsion qui doit etre soigneusement dosee peut-etre utilis6e 

Mode demploi: gauche de I'ecran). mais la recuperation dun container remplit les pendant le deplacement vers la droite ou la gauche. 

Le but du |eu est de recuperer tous les containers disposes dans reservoirs de votre fusee. Pressez "P." pour rejouer. 

ECt 4300 CLS:FORR-lT01O:BeePR.l:NEXT 

THENZ20OEL6eHUN 4 50 3 PRINT-F.l i c 1 t«t ion. ■■PHINT'B 



[ )"-lTH6NJ000 



3150 PRESETIX1.Y3 

31S5 EN-23:LINE(2 

3300 IFK-X2ANDV6- 1 

3ZS0 PRESETIX2.Y6 

oo,9:xz-o 

3ZS3 EN-23:LINE(2. 

3260 IF5C/S0-INTII 



■:PHESET(x,rii:PHEse 



34 RESTORE T1X, 

35 F0HR-lT06B:READC,Cr,Cl,YC:LINEl Y2) 

C,CY)-(C1,YC) 301 HA-HB*.S:r-YKHB-h 

3a NEXT H) :Y2»Y2*IHA-HI 

39 rem:. .ii-ii, an plac» <!•■ con 202 IFP0INTIX*2, r2l --1 
tlinin 203 1FSTSIG11J--1THENG0SUB3000 

40 PSET1X1, Y3J :PSET(Xl-l,r3+l) :PSE 201 IFP0INT1X, Y2-3 I --1 THEN2000 

11 PS6T(X2,r6]:PSET(X2-l,Yfi.l):PSE 2S0 GDSUB1000 

TIXZ.l,ri*l» 290 GOTg30 

42 PBET(X3,Y7J:PSET(X3-l,Y7tn:PSE 300 PRESET ( X , YJ : PRESET < X , Yl I : PRE 

44 PSET<XS,Y9):PSET(X3-l,Y9tl>:F 

30 PRESET(2,31-ENI 306 I FPOI NT I X , Y2-3 ) -- 1 THEN5 



■1TKENG05UB3000 



, Y2-3I--1THEN2000 



3400 ifx-x4andy8- 

3459 en-23:linei; 

3460 1FSC/30-INT' 



1FSTH1G I 1 I --1TKENG0SUB3000 690 G0T030 



3THENPOE6ETI) 



I-OTHEN4300 
iX2 



I • THEN4S20ELSEGOTO 



00 DATA22,23,23,23 1 23,22,24,22,Z 
' lu: " EerJU 2,21,23,21,22,20,26,20,23, 19, 2B, 19 

! '*' 3400 DATA43,28,43,23,46, 2B.46, 1B,4 

'OTHEN4300 7, 28,47,10,48,28,46, 20, 49, 28,49, 26 
100 DATA3d,Z,36, 10,37,2,37,12,38, 

130 DATA35,3,33,3,34,3,33,2,60,3, 

iSS DATA60, 7,62,7,60, 3,60,8 

3THENPRESETIX4 3,28,63,22,66,28,66,26 ' 



R'BERT 



ZX81 



Votre copain R'BERT a serieusement besoin d'un coup 
de main pour echapper a I'emprise de son cousin. 
Serez-vous de taille a affronter -$es problemes?... 

Eric DEFLANDRE 

Mode d'emploi: 

Ce jeu comporte 3 tableaux. Si le premier s'inspire dun celebre jeu 

d'arcade, le second e! le troisieme sont originaux. 



Les instructions necessaires sonl induses dans le programme, tou- * ™ 

tefois sachez que le passage des trois tableaux au niveau 6, est 

necessaire pour gagner votre liberie et le droit de rejouer, 

Dans le troisieme tableau, il vous taudra suivre les "." a laide des "vvhfl 

touches selectionnees pour monter et descendre. . 

Une petite routine au second tableau, accelere la vitesse du jeu, fr 1 ^! 

void le moyen de la "renlrer": . 

Taper une ligne 1 REM de 200 caracteres quelconques et enlrer a 

laide du programme chargeur (RUN 6000) les 175 codes machines 



CARACTERES EN UIDE0 INUEBBM » 



;; ; ; ; ooua er^» libre 

iiiiii""*" ' 



i jiiiiM 



RICH A DIRE 



98 LET IMCHRI PEEK 



oi ao is 2R ec 

ei fe F6 20 re 

00 00 av 01 e& 

00 e? ei os 02 

07 ee oa as as 

00 00 OS 00 03 

ee *e il ee 00 
an 0C 40 ii cc 

30 00 19 6* SO 
ED B0 06 IE- 13 

58 SI SS il ii 

36 00 34 0E 76 

A5 00 19 2B SS 

04 78 87 10 F7 

6B 01 19 20 SB 

0* 72 B7 IB F7 



40 7E 77 23 7fc 
10 VI CB 00 07 
02 04 00 07 00 
0* S3 07 00 01 
00 07 00 00 07 
3P BO 40 47 21 
10 10 FD 44 40 
00 18 36 S3 11 
60 69 01 03 00 
10 FD 01 03 00 
10 FD 01 03 00 
3E 04 BE 20 02 
0C 2P 0C 40 11 
23 2B 7E B9 20 
00 2R 0C 40 11 
23 SB 7E B9 26 

3R so 4e re FD 



F77F/ RUN URRND RETURN CLEAR M "» 



176 SOTO 165 

180 IF I*<» B 1" rt 

181 LET CP-CP-1 
IBS LET S«S-10 



1 GOTO IBS 



I PRINT RT 1,10-LEN STR« S;"0 



198 REM t»l4t«tl 

199 LET It-Ul 

' ET L-INT lRNDt84) 

_' L18+NI THEN SOSUB 264 

205 GOSUB 110 

208 IF LtSl-NI THEN GOTO 800 
207 LET R.1B 



3 LET MH"2X 61" 

4 LET H6-8S0 
B SOSUB 6000 

6 RAND 

7 REM Htf i HtUtl 

6 REM I CHQIX DUNOMBRE t 

9 REM IDE JOUEURS ET NIUERU t 

18 LET UI-5 

13 LET S>0 

14 PRINT RT 10,0; ' NIUERU 7 (1 
-6) "; 

IB LET U«-INKEY» 

17 if y|t"i" 9R y§?"?" 9R y*"" 

10 LET NX-URL U« 

19 PRINT M I"jNI; "1 " 

20 PRINT RT 13,7L_N0M OU UOUEU 
1 "iflT It, *i ''US LETTRE5 HRXIM.UM 



IF I 



1 THEN LET fie 






28 CLS 

86 PRINT RT 6,0, P.," UQULEZ UO 
US;";AT Bj8;"l- L/EURSION COUPLE 
TE";TAB a;"2- unicjumknt FIi. 

D/ARIANE-.TAB S, "3- UNICUEHENT L 
/EUR3I0N 1 ' 

27 PRINT RT 16,0; '■01 UOUS REUS 
ISSEZ UNE EPREUUE LE JEU 3/ARR 
ETERA ET IL FAUDRR LE ftKBHfSfl 
EN TRPRNT RUN PUIS NEULINE 

28 IF INK6YK"*-" OR INKEV«>"3" 
THEN QOTO 86 

SB IF INKEY1>"2" THEN GOTO 000 

30 IF INKEY«-"3" THEN QOTO 400 

31 CLS 

37 LET CP-0 



809 SOSUB 110 

lit irus:-r R ^[ 

ai2 PRINT AT B,A 



MEN LET UT.-I- 



2S0 PRINT RT B.R 

aas if B.is then 

230 LET Z-8> llNT 

31 LET R-R+Z 

32 LET fl-B+ABS Z 
40 LET UI-CHr- *" 
42 PRINT RT I 
60 IF U1>"1" 
Bl OOSUB 110 
88 99T0 320 

II lis : 

60 REM L 

„ LET B>4 

65 LET R>1B 

66 LET Ui-CHF 

- ™ 'ii."i" 



, PE £! 



BOULE f 



t' (RNC 



70 LET Z-8 

71 LET A-At* 
.£78 LET B-B+RBS Z 

875 LET U«-CHR. PEEK 
87B PRINT RT B,R;"B" 
877 IF Ul»"«" THEN Gi 

876 IF 8-16 THEN GO"' 
879 GOSUB 110 
280 GOTO 86B 

67 REH lllllillill 
866 REM 1 COLLISION 
889 REM ttMttllix 
290 LET 5.5*130 
201 PRINT AT B.R, "■ 

|TR1 Sj -0";5 
898 LET A. IE 
893 LET B.4 



„. GOTO 290 
GOTO 350 



897 RETURN 



1 REM 



IT HI v , 14; , ihD «-, v 
i, ; " SCORE : 00000 R BERT 



Lfl PYRRMIDE EST 



-TTpJ 



-?„PJM "JP-ITRB 



30, ■ 



;rt 1 



IT FOR N.t TO IB 

4B PRINT RT N,aj"|")Tm Oil "I " 

B0 NEXT N 

61 REM 11(1 »t****«t(4**ti 

52 REM « PYRRMIDE REHPLIE 1 

53 REM 1 DE N6RE5 HLERT0IP.E5 t 

SB GOSUB 1006 

SB PRINT RT 0,5-lEN ai/2;Al,RT 
21,12-LEN M«/2,m;TflB 2B-LEN ST 
Rl MSJMS 

S7 FOR N.4 TO 16 STEP 2 

60 FOR H»15-2tU TQ 15+a*U STEP 

SB LET 9>INT (RND t (NX + 1) I 



30S REM 

310 LET NI-NItl 

311 LET S=S*S00.INT 
31S PRINT RT 2B.ie,N 
J^O GOTO 400 

3S0 REM tlltllliltll 
361 REM • BOULE OJX I 
3S2 REM ("--- 



3BS f 



I INT ( 



3BB LET B- 

3B7 LET R-io 

3B8 LET Ut-CMRi PEEK IU+33*B+ 

360 IF UI«"B" TMEN LET US=I* 

361 PRINT RT B,fl,U« 

362 GOSUB lir 

363 LET Z.2» 
367 LET fl-R*i 
366 LET B<B>RB5 Z 
369 LET U>>CMR« (PEEK 



|RND*3J - 



J.33tB» 



1 7 j 



1 PBlr 



68 IF Q>0 1 



7B REM «W>|>1<III1IHH<IH 

76 REM * INITIALISATION DES ■ 

77 REM t URRIRBLES 



375 GOSLlS 1?0 

376 IF 6=16 TMEN GOTO 
370 GOTO 361 

300 LET A>15 
381 LET B=4 



THEN GOTO 290 



' TMEN GOTO 6966 
' TMEN GOTO 199 




liAT 1,; 



SS9 PRINT RT 9,0; "SRAyo UOUS 50 
RTEZ UIURNT DE CET-TE SALLE C/ES 



DE CO NT ROLE 



9B REM 

100 LET XsltS 

101 LET Y.4 

102 PRINT RT Y,x; "■" 

103 LET Ul.ll 
106 GOTO 800 

110 LET'T-T+1 

111 IF T=TM TMEN GOTO 6979 
180 IF INKEY«-"'- THEN RETURN 
1S1 PRINT RT Y.Xilt 
18B LET OtalNKEYI 
123 IF CP-80 THEN QOTO 300 
128 IF OloCI THEN QOTO 146 
188 IF Y.4 THEN GOTO IBB 
187 LET Y-Y-a 
128 LET X.X+P 
130 QOTO 160 
148 IF OloDl RND OloCI THEN 

OTO IBB 
1S3 LET P-8*( 10.-E1) -tOI-DDl 
1S5 LET X-X-P 
187 LET Y»Y+8 
160 LET IlaCHRt (PEEK (J+33tY+X 

168 IF II> ,, S" THEN GOSUB 360 
163 IF I|-"»" THEN QOTO 6975 
180 IF IlOXf THEN QOTO 160 
166 LET |i»"l H 

172 LET CP-CP+1 

173 LET S»Stl0 

174 PRINT RT 1,10-LEN STRI 5;"0 



392 LET Ax 15 

393 LET B.4 
383 QOTO 366 
3B6 LET UI-3 
3B7 LET SalO0 



393 LET B.4 

385 QOTf 

3B6 LET 
3B7 LET 
39B LET 

400 CLS 

401 LET U-PEEK 16396»a56«PEEK 
6397+1 

402 LET 



T7aiF I Tl^7^TitEN F 
UN PETIT EFFORT.. .' 
678 FOR Q*l TO B0 
876 NEXT O 



SB- 



^^^^^^^ 
407 GOSUB 460 
406 LET U4bU*133 

409 IF PECK US. 61 THEN GOTO 500 
412 IF INKCY|-"fi- THEN GOTO 433 

414 PRINT AT 4,31;YJIINT IRND*2 
0)+l);RT 10,31, HtiINT <RND*20) 41 

415 IF PEEK IU3-1)>61 AND PEEK 
U3«61 THEN PRINT RT 10, Si:' 1 !" 

419 PRINT RT 5.5;' 1 ";RT 6,4; " " 



432 IF LO0 THEN GOTO 409 _ 

435 PRINT RT S,«;" tr;TRB 4; "It. 

:;;trb 4;" lai-jTRS *j"" -jtrb 4; 

PEEK Ul.iil THEN GOTO 5B0 

e lesea.a 

INKEYf^'fi' 1 THEN GOTO 442 
__0 410 
466 LET 0>1 

466 PRINT RT 21,1; "SCORE 00000 1 
"R« S;S;TRB 13;"V 



Ui? THEN SOTO 31 

691 PRINT AT 7,0,'COMME PR0MI3 
U0U5 RUEZ GAGME LE DROIT DE REJO 
UER";RT 13,0; "POUR LE PRENDRE Tfl 
PER UNE TOUCHE" 



„111 LET 0»-"" 

6120 PRINT RT 6,5;"EN HRUT :"; 

itnt ■■ —M» e 30 IF INKEYi-"" THEN SOTO 8130 

I1MI ■*->-« S 31 LET Ci-INKEYl 

>RINT "ENCORE 8138 PRINT C| 

.'"' EBLU ™ B134 RflND USR 16614 

B135 RRNO USR 16B14 

B136 PRINT RT 10,5;;fl DROITE -> 



' THEN GOTO 695 »IJ3 



900 LET LaUSR 16514 

901 LET LaUSR 16S14 

905 LET UIaUI-1 

906 IF UX*| THEN SOTO 7067 
911 SOTO 601 

1000 CLS 

1008 FOR N.3 TO IB STEP 8 
1010 FOR H-17-N TO 11+N STEP 4 
1080 PRINT RT N,H*1; ■'■"; BT N*S.t 
;'■£ J"jTflB h; '■»■■; »('•;■■■'■ 

1040 NEXT H 

1041 NEXT N 
104B LET L.16 
1048 LET 
10B0 FOR 



8148 LET D(>0« 

B143 PRINT 0} 

"145 RAND USR 16814 

146 RRNO USR 16514 

0146 PRINT AT 18,5;" 

6149 LET 08-: 



8151 LET EI'OI 



6137 RP.ND USR 16514, 



3 TO IB STEP 



lu> 



AT 21,12-LEN ! 



, M I CI . ii-Ltl' 1IK1 J, =, I HO 1J, 

IE3: ";UI;TRB 20; "NIUEAU: "jNI: at 

13,ii; "■___ "; at i9.ii, t_ 
■MaJ^TRT 15711 Bi; 81 

ISO TOR N»14 TO 18 

470 PRINT RT N,ll;"|";TRB 20; "| 

47 1 NEXT N 

i7:> LET J«.CHR» 131+CHRI 12B + CH 
R| 137tCHR« 12BtCHR» 1S8+CHR» 12 
S+CHRC 1SB-.QKR. 5*CHR» 1S9+CHRI 
lS7+cn»t ISa.'C-fCHRI 6*CHR« 136 
+CHRI 136+CHRi 7+CHRi 3+CHR* ItC 
US* S.CHR* 13S*CMR» 5 

473 LET Z»a 1 '0611121314131617202 



1060 LET L.L+2 

1062 LET K-K-2 

1070 NEXT N 

1^71 PRINT RT 17,89; "■■■; RT 17, i; 

leee for n.b to ae step 4 

1065 PRINT RT 17, N; "*" 

1090 NEXT N 

1091 PRINT RT 21,0;"RECCRD; 

RUEC 00000 PT3" 

1092 PRINT AT 20,11, "NIUERU 

1094 P"'™ -" • 

1095 F 

1086 f... 

1097 NEXT N 

1100 RETURN 

6000 REM 



AT 14,6; "EN BAS: ' 



616S LET FI'Ol 
6i68 PRINT F« 
8160 CLS 
0190 QOTO B00B 

8200 PRIN T AT 8, 5; "REG L-. . 
",TR6 5; —■ *ii ■ li l 3 W i—J M -- flT s a 
R BERT.ETAIT CONTRRINT PAR 50N 
COUSIN BERT DE ""PEINORE "■ LA 
PYRAHIOE DE ""0 

8201 PRINT "MRIS UN JOUR IL EN E 
IT r-.-jf^iZ ET &£CIDh Or: $/ZWOtin"; 
TR6 0;"HAIS 3A ROUTE EST LONGUE 
ET PAR-SEHEE D/EMBUCHES " 

■ 3aQ DDTUT ■■_ nS« him.»,T 



&LE.S DU JEU 



O80S PRINT ■ 

DEUEZ ATTRRP- 
T 8U/IL UOUS 



CUE UOUS 
PEZ EN ATTENDRN 
TOHBE DE5SU5";T 



LEURS DES CUBES SERONT ENU 

OYES" 

6a«5 RRND USR 16514 

6810 PRINT AT ai,l^"POUR LA SUIT 



ETRPER UNE TOUCHE 1, 



' THEN QOTO 6211 



6285 PRINT "PRENEZ GARDE AUX ION 
OBLES BOULES " "i" " OUI UOUS ECRR 
SERRIENT CE NOMBRE DE COUL 



J3^0R N.l 



B 4;" 
";RT 9 



504 RAND USR 16514 

307 NEXT N 

311 IF UI.0 THEN SOTO 7007 

512 PRINT RT 21,1B;UI 

513 FOR N.l TQ SS 



GOTO 578 
:I| PRINT"Rf*21,il-LEN STR« S; ' 
14+URL ZIiCiS-Ij ,: 



562 PR IN' 
3 + URL ZSK 

563 LET Cl-u + i 
S6S POKE U1.149 
S6B SOTO 440 

573 FOR N-l TO 30 
678 PRINT RT 10,16, "PAN" 
10,16, "lUE" 



6010 FOR N. 16514 TO 1666B 

6018 INPUT Rl 

601S PRINT Rl:" "I 

60a0 POKE N,16tC0DE At+CODE ( 

1-476 

6030 NEXT N 

6040 STOP 

6969 FOR N-l TO IB _ 

6870 PRINT BT Y,X;"B" 

SB71 PRINT BT Y,X;"I" 

S7i NEXT N 

SB73 LET CP-CPH 

974 QOTO 7000 

6878 PRINT BT B,R;UI 

7001 LET VI-UI-1 

7008 IF UI.0 TMEN SOTO 7007 

7003 FOR N.l TO 30 

7004 NEXT N 

7606 POINT BT 1 ,36-2* (2-UI) : 

7006 GOTO 80 ' 

7007 CLS 

'■;a; " POINTS" 

7009 IF 3<-M5 

7010 LET MS-3 
7 S" kET ""SSI 



EUR3 ET LE 
AUEC LE NlUtf 
NTROLE D/ORI- 
, "EN HBUT ~" 



TPS LIMITE 

J LES TOUCHES DE CO 
BINE SONT: ";TRB a 



ID rf, M UHU1I B : L . 

D.Mb PRINT TAB a, "EN BAS I Z" „ 

eaa7 print -on remonte a l/oppos 

E DE LA OER-NIERE MSqENTE. '"'\ ; ... 

" ET ""K" i DE DESCE 

NDRE TOUT EN SE DEPLACRNT LATERH 

LEMENT" 

0830 PRINT " CHRQUE PYRRHIDE. ACM 

iJOCl ■ :. ■...!.■■■ ■■ ■■ :Cnr.H 

BOB PTS * UN BONUS CALCULC CN 

FONCTION DU TP5 "- T '' 



TILISE 



57B NEX1 
BB0 F-" 



' 0,6;' 



U£ 



1INT I. 
ii»«";TAB 6; • ll ( 
»";TRB 6; "* TAPEZ I 
■ ,TRB S: t« 

38a IF iNKEY«."" THE! 

S83 CLS 

S64 GOTO 600 

600 FOR N-l TO 81 

610 PRINT AT 14+UAL ZKN- 
2+URL ZI(N*8) .Jiitii 

650 NEXT N 

690 STOP 

600 LET C.0 

801 CLS 

608 PRINT RT 80.8; "UIES ■ 



QOTO 58 8 



7013 GOTO 7019 
' 7014 PRINT RT 10,0;M8;' 
PERIEUR";TR6 0; " AUEC ' 

7018 PRINT RT 20,9; "POl 
,TRPEZ UNE TOUCHE" 
7080 IF INKEYB-"" THEN 
70S1 CLS 
703S SOSUB 8001 



1 MS; " PTS Z 



m i 



■ RRNO 



807 FOR 
806 PRIM" 

809 NEXT 

810 LET 
i 6397+1 

811 RRND 
818 LET 0-10 



SSROE NO; ■ 
™ RT 81,1 

SR 16814 

10 

RT 10,a;"H"; 

3 TO 4+1 (B-NI) /SI 



7993 REM * DU JE 

7984 REH iiiHHiiH 
B000 SOSUB 8300 
i 8O05 PRINT RT 1,4; "e 
. E PRESENTS:" 
■ 8010 FOR N'l TO 4 
8011 RRND USR 16614 



:IC DEFLRNDR 



THEN GOTO 6836 



8840 PRINT " ET POUR CELA IL I 
DRfi EUITER LES PIECES ""X"" 

SRUTANT AUEC " 
8a*l PRINT " LP Tni irnp »«B"" F 
RTTRAPEft LES 
UEC "■«"") RFIN 
6S4B PRINT " DE CONFECTIONNER 
SON REUOL- UER (DESSINE EN BR 
S DE L/ECRRN DES CUE UOUS L/RURE 
_ FINI LE GRRDIEN DE LA 5PLLE 

SERA TUE IL PAUDAA ENSUITE S 

ORTIR DU LABYRINTHE . . . 

ET U0U5 N/AUREZ PLU5 QU/A R 

rcotmL.NCtB fiU Kiweau iuPERIEUR 
IAU NIUERU 6 UOUS S 
EREZ LIBRE ET UOUS RUREZ SAGN 

E LE OROIT DE REJOUER" 

8370 RRND USR 16S14 „ 

eaB0 print rt 8i,i;"pour la suit 

E, TAPER UNE TOUCHE' 1 

8289 IF INKEY*-"" THEN GOTO 6299 

eaa0 ci.s 



PEEK 



16388+866 (PEEK 



- LET I-INT (4+ 
oitS LET 9.2 
620 PRINT RT Y,D;' 
081 LET C-O+l 
638 IF K32 THEN t 



Ofl4e psintSt 1570;" ___ 



Ba? IF PEEK 

N SOTO 800 

aaa print at y,o;">- 

Ba9 LET O.O+INT lRN0l3)-l 

830 IF 0.31 THEN GOTO 850 

838 LET I.I+l 

636 QOTO B20 

860 FOR N-l TO 30 

III S^ N 

B86 LET C-C+i 

867 LET S-S+S4NI 

860 IF CoNI/3 THEN GOTO 801 




6075 PRINT 



TOTc E . . . i.AT 14,0; "ET 
SAUUEZ LE PRUURE R OUI EST LE 
SEUL BERT GUI OSE SE REUOLTER" 
6894 FOR N.l TO 50 
8295 IF INKEY«<)"" THEN GOTO 821 



6308 LET C«="R" 

6309 LET Dt.'L" 

6310 LET E«."K" 
LET F«-"Z" 



8991 RETURN 



POUR CHANGER LES", 



SAUUEQPRDE 



155 THE RB 10;"TOUCHES DE CONTROLE 
6090 FOR Q-l TO 5 



sz 9.i 



NEXT G 



J RAND USR 16514 

6100 LET 0>.INKEYI 

6101 IF OKl'J" AND 0»(l"I" RND 
0«o"R" THEN GOTO 6080 

BIOS IF Oi-"J" THEN GOTO 8990 
6106 CLS 

6108 IF 08<1"R" THEN SOTO 6200 
8110 PRINT CT L J. ,111111111111 
* ,RT a,0; " t REDE 
FINITION DES TOUCHES t C 




SPECTRUM 



6703 RESTORE 9B4( 
8705 FOR HI TO i 
4»ii «H J.1 TO. 



' e 9004 PRINT INK 6; 



9110 PRINT INK 6;RT . 



I "Hi' SCORE 00000"; INK 2;RT 0,16 

!«pW5488aW"wwiii ! 

TRi h; INK b, paper 1JK 
6690 OUER 1: INK 6: PAPER 6 



i?Si*fttBB U if 

9S40: GO TO 87. 
B7a5 BEEP .01,r 
BEEP .01,n+ia 
EP ,01,n+36: Nt* 
6730 IF INKEYlo 
70S 

S788 RESTORE 8S71 
9000 CLS_ PRlfH 



T 

. _EEF 

BEEP , 



1 j«l 
IPER 1 



;sm,; 



! 900S OL 
9006 PRJ 



I GO TO 6 

I 8000 
.7; INK 1 

ni;RrV 



ordUf«» TS",RT 6,7; INK 6; "L 4 

It port 5 pts'iRT 10,7; "M 100 P 

tv t*bi t5-;at ii.fstw 

,, 9130 SO SUB 9006: RETURN 
.. * 28*e_CATS 8,8,4,4,6,0,4,4,8,8,6, 



itri ;ur i, ur ch.il^Cr Bui print ink B; ■ ■ - ii US SM i.n:^l*l'?"*'l'I'B. 

QO f SUB r 8606 GO TO 9110 uX 3irt:?,ni.." ubl « J J-gJJ. | ■ 3 ,* -* -8-S. * , 4, S,S , ? , 

EfiS T .i NK „ a, 9I 0,ia; "RRB8IS 9113 DATA 14.38,-44,3,-18,8,6,88 9670 DA+A J, 1,3,3,6,6, 10 ,10,6,6, 
PLCT 48,18: RESTORE 9113: F ,4 ,8 . 116 , , lis , -4 , B, -6 . B , -88 , -18 oTsTioTb . 6 , 6, iO 10,6 ,6, 3 . 3 . 3 ,3 ,6 
1 TO 18: READ A,y: ORRU *.y , -4 , -176, -10, -is , -S3 ,8,6,6,1,1,1,7 

" ' ' "- '-"" - 1 ' ^RTA 8, 1,8,1,8,1,8,3,8,3,8, 

3,8.6,10,8,6,8,6,8,6,8,6,8 
^3,10,3,8,6,4 
RTA 8,10.8,10,3,10,8,6,8,6 
,3,3,3,6,3,3,8,8,8,8,6,8,6 
:,6,3, 1,3,1,8,1,7,0 
RUE "RflBBISHT" LINE I: PRI 
HBOBINNER Lfl CflS8ETTe"- il PR 

UN % 



PRINT INK BiAT 
BjAT 81^4^-0"; INK S; 

I 

NEXT 



. -i^D,-lo,-iL 
J 9114 GO SUB 9006 
IN 9116 PRINT INK a 



9; At 0,1, in 

EEEEEEEEEEEEEE 

OR 1.30 TO 60: IF INKEY 



INK^aT'PRPEfl"?;" 9180 



I 803B IF INKEYI 
> 903B CLS 



TO B007 



NE ECHELLE 
E C0R6EILLE I 
90 9126 CO SUB ' 



9126 PRINT INK 



gsai'OflTfl 8,1,8,1,8,1,8,3,8,3,3, 
6 3,3,0,3,6,6,10,3,6,8,6,8,6,8,6,8 
w , a , 3 , 8 , 3 , lo , 3 , 8 , 6 , 1 

4j.6 T - 6 4 6 ;.-fl9WB c 8588 DATA 8,10,8,10,3,10,8,6,8,6 
T BT 6,6; ''DfldlTK ,3,8,3,3,3,3 ,6,3,3,8,8, 8,8.6,8 ,6 

AT 10,6; MONTER U ,2,6,2,6,3,1,3,1,6,1,7,0 
RT 12,6;"P03ER UN e gga SRUE "RABBISHT" lIne " 
NT "REHBQBINNER Lfl CflagETTE 
'6 ESSEr ~ — """" """ - B »»«" 

, 8; PAPER 1;AT 4.6 v "" 
POINTS 



PAPEr'b 100: ' 



_JANKATTACK 

Super ludique avec chars, bosquets, rivieres et le tou- 
tim, c'est super, super... 

Pascal POUTCHINE 



10 



■ • ■ > ■ 




HECTOR 



mA(20. 2) :dimF (20.: 
UN SUREMENT. " 

12 goto53 

13 AB=0: restOrel6: for 1-1 tc 
V:AU,J)=V:ne>:t J:neKt Isrestc 
9=92: CH=4 

14 for XF=B4 to 192 step36: f or YFa46 to 190 step36 2B. 221 , 12B. 251 , 1 26, 
3utputchr*(2001 , XF+4, YF-4, 3: autputchr* (201) , XF+5, YF 4.0,0,0,0,0,0 
6, l:next:n*xt 91 data 96,0,32,0 

15 goto93 92 data 192,0, 192 

16 data 103,44, 174,44, 193,66, 138,80,121, 102, 157, 10 93 color 0,2, 1 , 4: bn ght 1 : restore! 
,65, 116, 103, 116, 137, 116,49, 138,83, 102,85, 13B, 121, 13 94 output ■' POUR COMMENCER APPUYEZ 
, 193, 13B.65. 152, 174, 152,65, 1B8. 121, 174. 157. 174, 193, ,230, 1 
74 95 X=210: Y=a2:DX=5:DY=0:H=193sou' 

17 i* TB=2 then goto20 lf * ire (0)=l then gota94 
IB D=(X-84)/36-int ( (X-84)/36) :P=(Y-46) /36-int< (Y-4 94 pi otO. 230, 240, 14,0 

■93 97 G=joy{0>:if PR=1 then outputc! 



:B:ne>:1 



. 1 : f 01 



6)/36 


iH peel, (49 


52+ 


237-Y)<64+<.27*( 


+7 ) } -2- 


/50> 


OO then if 


Q=-0 




if P 


then 


tone240 


ash3, 6: outputchr* 


200 




Y-4,0:FU=FU*1 


















20 


f(Y=Yl-2 or 






f (X>X1 


n 




than 


B0=1: return 














21 












n 




then 


BQ-ll return 














22 


f X = 156 then if 


Y-Y3 


2 or 


Y=Y3+4 






in BO 


1: return 














23 


f X-120 than if 


Y«Y4 


2 or 


Y=Y4+4 




Y=Y4 



fl 



-»(204) , 



!4 if X=B4 then if(Y=Y5-2 or Y-Y5+4 or Y=Y5-B) 
BQ=l:return 



9B ifG=0tnengoto99:else outputchr* (HI , X, Y,0t H-int ( 
6) /2+192:X=X+X(G) : Y=Y*Y (G> : gosub 17: E=49152+ (236-Y) *6 
4+(.27*(X+7) )-2-( (X-93W50) :if peek(E)O0 or peeklE* 
3B4JO0 then BD=1 

99 FU=FU-2:plot 15.230.FU/30, 5, 1 : p 1 ot FU/30+1S.230 
, 121-FU/30. 7,0: plot 120,230,30, 10, 0: outputFU, 110,230, 

1 3:if TB=2 and 6=0 then gosubl7 

100 if FU< = 3 then gotol35 
f TB=lthen if OX. 17 an d P<.17 then B0=0 



lutpufSI NUN TAPEZ N".20. 15. Is for 1 = 1 to A< 
11 12B:next 

6 Output "SI QUI UNE AUTRE TDUCHE" . 20, 15, 1 : f or 
o 40:scroU128:ne::t:A* = instr*(n : if A*="N" or I 

then gotol4B 

7 color6.6,6,6:SC=0:gntnl62 
jtput"VOULEZ-VDUS SAUVER LE PROGRAMME (Q/N) ' 

15,lsfor 1 = 1 to 40sscroll 128: ne;-.t : A*=: nstr* ( 1 ) :i 
= , 'N ,, ar A*="n" then outpuf'AU REVOIR ...",30,15. 
r 1 = 1 to 40:scrol 1 1 28: ne;:t : end 
49 poke!<FF38, 1 : save "tank att a) ": goto 148 
),X,Y,2: 150 for!=35 to 240 step 36 

151 for J=20 to 230 step 36 

152 if K96 and(J=56 or J=92l than gotol59 
+7,Y-3,0 153 X=I-17:Y=J+10:for K=0 to 6 

154 X = X+B:if XM + 10 then X=I-10 
0:H-int( 155 Y=Y-rnd(10, 12) : if YCJ-10 thenY=J+9 



156 outputchr*(1971, 

157 outputchr* (198) . 



.Y-4. 2 



X (1 >> 



-6: X(2!= 



[(81=0:1 



If 


1-B4 




Yl=42thenM-lsN- 


:elsel 


fXl=86andYl=18 


nM=l 




e 


seif Xl= 


94andYl 


=42then 




sN-1 




194a 


dYl" 


86thenM=- 




seifX] 


=B6andYl 


>42an 


;l86thenM 


■1 


N=rnd(- 


, l)sN=N 


'abs(N> 









102 
103 



1 1 ■:) 



.f X<12 



PR= 






if CH=0 

if X<=1B th 

if TB=lthen 



gotoli: 



(Z=0)*-l:go- 



s30+; 



163 X2=122: Y2=l 14iGL=l:X 1 = 122: Yl = l 14: FL = 1: wipe: col 
orO,4,4,4:autput"VEUlLLEZ RATIENTER UN INSTANT" , 20. 1 
15, 1: pause2: wi pe: col or 4, 4, 4. 4: gosub 150 

164 ga5ublBlsgosubt92 

165 Y3=24:Y4«114:YS"210:WY,XY,YY"ie 

166 restorelBO 

167 Z=195:v=199:P=2 

16B for X=6 to 222 step lSsoutput chr* ( Z> , X, 1 1 , Pi a 



FL«: 



if Xl = 194andYK >42andYl< ; lB6thenM=- 1 :N=rnd (-1 , 1 ) 109 E=joy 10) : i f G=Othengotol 10: else outputchr* !H> , X 
abs(N>selseifYl=42andX1086andXl<>194thenM=rndl , Y, Os H=int (G> /2+192: X=X+X (G) :Y=Y+Y(G) 1 gosub 17: E=4915 
:M-nV*bs(r1) :N-ls*lseifYl=lB6andXl<>B6andXl<>194 2+ (236-Y) *64+ t . 27* (X+7) > -2- ( (X-93>/30> : if pack (EX-'O 

or peek (E+3B4) 00 then B0=1 
:>:return 110 if G=0 then gosubl? 

111 if B0=1 then soundO, 24B44: B0=0: gosub 133 

112 gosub44:if fire(0)=0 then gosub 132: goto97: el se 
LY-0 then goto97 

:C>=36 then 113 if YB=50 or F6< >7 then F6=F6+ 1 : gotol 16: el se F6 



utputt 
169 



- Y=3B to 



♦9, ll,P:n 



.X=9*M* 
f FL=1 
lutput chr*(202) ,X1,Y1,0 

(1-X1+LX: Yl=Yl+LY:CC=CC+abs(LX+LY 
if CO-36 then FL«lsel*e goto33:els* 



tl -- 



:o33 



ir»(202) 



lutputcl 



33 if PR=1 

35 M=rnd(-1, 1) sM=M/abs(M; 

36 i f X2=B6andY2=42thenH=l s N^ 
h«nM=l:N=-l;elseif X2=194andY: 
2=194andY2=186thenH=-l:N=-l:i 

Y2< >lS6thenM=l : N=rnd 1-1 . 1 1 : N=l 
if X2=l94andY2<;42andY20 
J/absIN) :elaeifY2=42andX2< 
,1 :M=M/abs(M> :N=l:elseif Y2' 



204) 



K+7,' 



1,0 



114 



t PP=1 



iXB 



B6thenM- 
B6andX2< 
186andX2 



th»i 



J6andY2=lB6 
N=l:el5Bif 
idY2<>42and 



>86andX20 194 , 
-12>:return 



output, 

speed 10000 
TB=2:colarO,0, 



*(203> .XB.YB,: 



itO, 230,240, 14 
14,0:output"i 



des rescapes. . . . " , 15, 230 
0,230,240, 14,0:output"et 
, 15,230,3:plotB5,80, 124, I 



if GL-1 then GL=0: DC=0: gosub35 , 3: platBS, 1 16, 124, 13, 0: pi 

output chr»(202),X2.Y2,0 ! e5 ramen er en lieu sur. . 

X2=X2*VXiY2=Y2+VY:DC=DC*abs(VX+VY)iif VY=0 then 3, 0: plotO, 230, 240, 14, 
DCJ=36 then GL=i:else goto42:else if DC>=36 then 120 output"mais ce ne sera pas facile ",15,230,3: 
l:el5e goto42 lot85,44, 124, 13,0:plot0, 230, 240, 14, 0: output "car lei 

if PR«1 then outputchr* (204) , X+7, Y-3,0 robot* patrouillent " , 15, 230, 3: pi otB5. 185. 10, 170, Or 

□tO. 230, 240, 14,0 

121 outpuf'dans la for t ....' 
,10, 170,0iplat0,230,240, 14,0: 01 
ent. vous eKpl ose; ! I " , 15. 230. 3: i 
lot0,230,240, 14,0 

122 output"le bouton de feu vc 
1 193, 185, 10, 170,0:plat0,230,24<: 
llir les rescapes", 15. 230. 3:plc 
,230,240, 14,0 

123 outpuf'et ' les deposer er 
3: plot 65, 116, 10, 13,0:plot0, 230. 
ut deposer les rescapes" , 15, 23< 
plotO.230,240, 14,0 

return 124 pi ot82, 103. 5, 1 4, 0s output "dans le carre prevu 

■2 data 174, 1B8, 13B, 196, 103, 1B8.85, 174, 103. 152, 13B cet effef , 15, 230, 3s plot 0, 230, 240, 14, 0s col or 0, 2, 1 , 4 
52, 157, 13B, 174, 1 16, 193, 102, 174 , B0, 157, 66, 13B.44, 12 ;S peedO: line 15, BO. 15, 95. 2: 1 i ne30. 95, 2i lin*30,80,2: li 
66. 103.90,62,50 ^22,80,2 

3 pol,e49336, 16; pol:e48335, 16 125 output "rescapes" , 153,230, 1 : restore 126: for 1 = 1 

A=48335:Rl = int (A/256) : R2=A-R1 *256: poKe 24548, Rl to 16: readV, T: P< 1 . 1 ) =Vi P ( 1 , 2) =T: next : 0=1 nt trndtl, 17) 



, Piou 


tputchr* 


V) ,22B,Y.P:ne>it Y 








170 


for Y=3E 


to 230 step 24:outp 


itchr*(Z 


• 5 


Y-12,1 




jtchr*(V: 


,5,Y,Psne«t Y 








171 




to 222 step lSsoutput chr*(Z 




220. P 






X+9,220,P:neKt X 








172 


AB=AB-H: 


if AB=1 then Z=199sV 


-195: P=3 




□ 168 


173 


plot 28, 


222, 199, 5,0: plot 14, 2 


2, 14,5,^ 








plot0,23 


3.240, 14.0 








17S 












176 












177 


data 10C 


, 140.210. 1B6. 110. 160 


176, 132 


R0 


110.1 


2. HE 


90 , 1 30 , : 


]B,B4 








17B 




gotol3 








179 




, 128,227, 128,227, 128 


227. 12B 






160 


data 0,: 


22, 12,23,222,222.24, 


:ib.o, 10 




21B.0 




28 , 22B 






















182 


data 0.C 


,0,0,1,2,3,5,9,15,21 


24.26,27,27,26,2 




6,29,33,3 


5,34,31, 19,14, 11,9,7 


6,5,4,5 


5,6,7,9, 


0.13, 


15,20,36, 


40,43, 46,49, 49.49, 47 


46.46,47,49.49,4 


,2b, 2 


4,24,24,: 


4.24,24,24,24,26,28, 


19,31,34 


37 


41,46 


183 




to 72:read X:plot X+ 


5, Y, 12,3,3 





195 Y=222H 



output chr*(202) , X2, Y2, 3: goto 


09 


outputchr* (202) . 158. Y3, 0: outp 


ltchr*(202) , 122. Y4 


tputchr* (202) , B6, Y5, 0: Y3=Y3*l' 


V:Y4=r4*XY: Y5=Y5*Y 


Y3;204 then Y3~196s WY=-1B 




if Y5>204 then Y5=lB6s YY=- IB 




if Y4>204then Y4=ia6sXY— IB 




if Y3<24 then Y3=42:WY=18 




if Y4i24 then Y4=42:XY=1B 




if Y5C24 then Y5=42:VY=1B 




outputchr*(202) , 158. Y3, 2: outp 


utchr*(202) , 122, Y4 


tputchr*! 2021 . 86, Y5, 2: return 




for I-XB to XB+8 step4:for J= 


YB to YB-12 step-4 


utchr*(203) , I+rnd(-l, l>,J+rnd 


(-1, 1) ,2tn*Htin«N 



,15 


230.3:plotl21 


IE 


tpu 








lot 


57, IBS, 10 


170 


Oi 


us serf. 15,2 


0,3 


pi 


, 14 


Ot output" 






t49 






ot 


lieu sur. .. " 


15, 


230 


240 


14,0! outp 


t"i 


t 


,3splot62,50, 


0,1 


1,0 



Y=223sfor 1-1 to T. 

net t I 

plot73.70. 10. 15.0 



ot50.7B,B,40, 
for 1=48 to 6 



is for 1=48 to 
I step2:plot5l 
128,59, 134.6' 



55 



I 24547, R2 



56 forl=48397 to 4B408:read V: pokel-50, Vs no: 

57 forI=4B409 to 494 IBs pokel -50. 0s nei:t 
5B forI=48419 to 4B440:read, V: pokel -50, V: ne; 

59 forI=4B441 to 4B450: pOkoI-30, 0: newt 

60 forI=48451 to 4B4B2:read V: pokel -30, V: ne; 

61 forI=4B4B3 to 48506:read V: pokel-50, V: ne: 

62 for 1-49507 to 4B514:pokeI-50,0:neKt 

63 forI=4B515 to 48546:read V: pokel-50, Vi ne; 

64 forI=4B547 to 4B55B:read V: pokel -50, V: ne; 

65 forI=4B559 to 49579: pokel-50, 0: neat 

66 forI=48579 to 4B586:read V: pokel-50, V: ne; 

67 forI=4B5B7 to 49610: pokel -50, Oi next 
6B forl=48611 to 4B634:read V:pokel-50, V: ne: 

69 forI = 4B635 to 48642: pokel -30, 0s newt 

70 for!=48643 to 48658:read V: pokel-50, V: ne: 

71 for!=48659 to 4B674 : pokel -50, O: next 

72 forI=48675 to 48684:read V: pokel-50, V: ne; 

73 forI = 49695 to 4B706: pokel -50, 0: neict 

74 forI=4B707 to 48730:read V: pokel-50, V: ne: 

75 for! = 49731 to 4B73B:ookeI-50,0:neiit 

76 forI=4B739 to 4B770:read Vs pokel -50, V: ne; 

77 forI=48771 to 487B6:read V: pokel-50, V: ne>:t 135 wipescali 

78 forI = 4B787 to 48B20s pokel -50, 0: newt UEL" . 15, 15, 1 : f 1 

79 gosub200:gotol62 136 wipe: col 1 
B0 dataO, 0.0, 0,0,0. 0.0,0, 128, 1. 192. 159,224,254, 192 ETRUITS", 15, 15 

, 135,248,11, 104,4, 144 137 output" 

Bl 03180.0,0,0,0.0.0,0,8.0,28,0,63,200,27,246,233, to 40:scrolli: 

8,162,128,73,0 138 outputsti 

82 data 7, 0, 2, 0. 2, 0, 2,0, 2, 0, 7, 0, 15, 12B, 13, 12B, 10. 1 o 40:scrolll2B 

" SOBS 



P=P(Q, 1) :¥P=P!Q.2> : plotXP, YP* 1 , 7, 9. 0: outputcl 
34) , XP+2.YP, 3: return 

126 data 203, 172,203, 136,203. 100,203,64, 167, 172, 16 
7, 136, 167, 100, 167,64, 131, 172, 131. 136, 131, 100, 131,64, 
95, 172,95. 136.95. 100.95.64 

127 if FR»0 or fire(0)=t th*n return 

128 if X<>12 or Y092 then gotol30:else 5C = SC*l:if 
XB=29 then YB=Y8-2: XB= 18 

129 tone50, 100: plat XB, Y9, 1 : XB=XB*1 : pi ot201 , 230, 30, 
1 4. 0:outputSC, 203,230, 1 

130 PR=0s outputchr* (204) . X*7, Y-3,0 

131 Q=int(rna(l,17)):XP=P(0,l) : YP=P (0, 2) : pi otXP, YP 
H, 7, 9,0: outputchr* (204) , XF+2, YP, 3: return 

132 if X+11=XP and Y=YP then toneSO, 100: FR=1 : outpu 
tchr*(204) , XP+2.YP.0: outputchr* (2041 , X+7, Y-3,3:retur 



,65, 100,65.94,71 ,99,74,94,73. 101.76 
4, B0, 99, 79. 94, 75, 9 1,60, 96.84,98, 89. 
,91, 101,91, 116,95, 123,97, 118,96, 110 
105, 132, 103, 146 

197 data 99,152,99,146,99,134,101 
100, 103, 112, 107, 120, 111, 118, 108, 112 
108. 102.112. 102, 114, 108, 116, 112. 117 
112, 118, 110, 116, 112, 116, 112, 118, 110 
128. 130. 12B, 142 

198 data 126,154.126,146,126 
32. 149, 128, 147, 126, 146, 127, 134 
17, 135, 134, 133, 143, 132,155, 131 
33, 136, 135, 125, 137, 117, 141, 119 
37, 147, 127, 147 

199 data 121,145,121,143,122 
19, 155, 130, 155, 139, 154, 151, 153 

, 154, 131, 157,116, 155. 125. 



159, 



: CH=CH- 


: outpu 


,4096 






TB=1 


YP,0:Q= 


nt (rnd 


1,7,9,0 


output 



162, 121, 166,123 

■ colorO. I,3,'2:wipe:line63,65,63,65,3 
1-1 tol05:reafl X,Y 
1 ine64, 66. 64,66, 1 
Y: lineX+l,Y-69,2tnext 

linB65.67.65,67, 1 : restorel96: f or 1-1 



eX+2, 



t, 2: next 



128:ne:<' 



It50,4 
text 
ot 1 , 1 



2,63. 126,63, 
15,80, 117, Bl, 10 
0(89,118,91, 

00,'106, 105, : 



20, 103, 112, 105, 
06, 110, 108, 104. 
23, 121, 124, 121 
24, 110, 126, 120 



!4, 143, 126, 1' 

:s, 132, 115, 1; 

37, 147, 133, 145. 1 
141, 129, 145, 

:0, 147. 122, 150, 1 
61, 150, 152, 
63,135. 139, 1 



: outputc 



ir»< IS 



lutpufVQUS N-AVEZ FLUS DE F 
10: scroll 128: ne;; t : got ol37 
lutpufTdUS V0S CHARS S0NT 



(SC 



27, 121 



27, 12B.2B.0,: 



140 



1128 



utG*+' 



VOUS AVEZ SAUVE" 
'♦" PERS0NNES",4i 

gotol 41 

: A1T M1EUX' 



. 15, 1: 



1=1 t 208 



edSOOsfor 1=32 to 212 *tep: 

1=20 to 224 stepl6:outputchr*(193) , 1,230,3 

I=212to 32 step-20:outputchr*(1961 ,220, 1,3 

If211to 7 step-16:outputchr*(192) . I. 15,3:n 

•ed0:pausel : output "Copyri ght Pascal P0UTCHNI 

23,40, 1 

isel0:color4,4,4,4:ret 



i.O. 13, 128,7,0, 15. 128, 15. 128. 10, 128 
10, 128, 13, 126, 15. 128.7,0,2,0,2,0,2,0,2,0,7,0 t 

95 data 48, 0, 124, 0, 172. 0. 216. 0, 124 , 0, 120, 0, 16, 0, 16 
0.4B, 0,56,0 



20, 15, 1: for 1=1 
ne;;t:gotol44 

it" BRAVO ! VOUS ETES LE ME 1LLEUR" , 15 
1 40;scroll 128sne>:t 
.f'lNSCRIVEZ VDTRE N0M" , 15, 15, 1 : f or 1 

2Stn«xt 

,t"PUIS TAPEZ RETURN". 15, IS, l:for 1=1 




MINEUR 



Bob le mineur doit recuperer des sacs d'or et les depo- 
se r dans sa brouette. Il ne peul prendre qu'un sac a !a 
fois (bouton rouge), le pistolet ne tire qu'un coup {seuie- 
ment!) grace a la barre d'espace. 

David HOAN 

Mode d'emploi 

Arret Chariot manelle vers le haul 
Demarrage chariot: manelle vers le bas 
Appel ascenseur: manette vers le haul 



306 CP=CT :CT=T] :Y=Y-1 :GOTO 110 
317 REM ***** 
31B REM CHUTE 

319 REM ***** 

320 POKE U,CT:IF C-POl THEN PDKE UH20.CP 

321 IF B=J THEN B=0:P=0 

322 X=X«l=IF ST=] 1 THEN X=X-2 

324 Y>YH :U=A'XtY*20:POKE U-20,0:POKE U, 
?9:P0KE U*20,90 

325 SOUND 0,Y'5,10,11 

326 IF PEEKCU-t40)=0 !H£N 324 

327 CP=0:CT=0 

328 FOR 1=0 TO 15:S0UN0 0, 145, 6, 10 :NEXT 
I: GOTO 1700 

340 IF CTOJ31 THEN 100 

342 FOR Y-4 TO 6 :U=A»X+Y*20 ."POKE U, 131 :P 
OKE U+20,77:POKE U*40,78:NEXT Y:Y=6=GOT0 
324 

347 RE" ************* 

348 REM BOUTON DE TIR 

349 RE" ************* 

350 U-AtX*20-.Y*20 :T2-PEEKCU) :Tl-PEEKtU-2 
0):IF P=0 THEN 400 

355 IF P-fl6 THEN 450 

357 IF P-138 THEN 550 

358 IF P-72 THEN 3B0 
360 REM *********** 
362 REM PRISE 0BJE1 
364 RED *********** 

400 IF T20 196 AND T2066 AND T2<>72 THE 




SUI 



571 POKE U-28,196:CP-l:G0T0 110 

573 NS-NS*1:IF NS-19 THEN 1850 

574 POKE 19,0:POKE 20,0:GOTO 440 

577 RE" ************* 

578 REH POSE PISTOLE! 

579 REH ************* 

•See IF T20TI + 1 OR CY018 AND PEEKCU»28) 

©1J 1HEN 110 

561 FOR 1-8 TO 10:SOUND 0, U80.2, 1) :NEXT 

I:SOUND 8,0,0,0 
582 CP-1'POKE U,72iP=0:GOTO 110 

537 RE" ******************** 

598 RE" AFPEL OE L' ASCENSEUR 

599 REtl ******************** 

600 U-ft'XiY*20;IF PEEKCU*ZB)-89 THEN 620 

601 IF T«2 ANO V> 1 1 THEN 110 

602 IF X-3 OR X=]3 THEN 110 
003 YA=ASStT-l]:Q=YA 

604 XA=Xt]:IF X=14 OR X=4 THEN XA=X-1 

685 QIA=PEEK[A«XA+(YA-n*20] :P0KE A+XA+2 

0*YA-20,0:DI=20*SGN(Y~YA]:J=0:IF DI=-20 

THEN J-2 

606 IF ASSCT-1]=Y+I THEN 110 

688 FOR I=A*XA*20*YA TO AtXA*20*( Y*J ] SI 

EP D2:P0KE I, 8! POKE I'0I,59 

618 NEXT I:ASSCT-1)=Y+1 

611 IF B=l AND XA=X+1 THEN CB=69 

612 IF OIA=0 THEN 110 

613 Z=]:IF MXf2J=XA ANO MYC2J-0-1 THEN Z 



J 110 

105 CP*CT=POKE I 



T1.1=P-T2:IF 



•■=66 THEN 



= 2 

615 MYCZ)' 



':P0KE A*XAi20*MY(2), 139=G0T0 



420 

412 FOR 1-0 TO 10:SOUND 0, 130, 10, 1 1 = NEXT 

T:S0UND 0,0,0,0 
415 SC-SC»10:GOTO 442 
417 RE" ************** 
"18 REM PRISE BROUETTE 
419 REM ************** 

"20 B=l :CB=PEEK(U+1):IF CB=8 THEN POKE V 
•1,66 

425 FOR 1-0 TO 15:SOUND 0, 50, 10, 1 1 :NEXT 
1:S0UND 0,0.0.0:GOTO 110 
429 REM ***** 
a 30 RE" BONUS 
431 REtl ***** 

435 TI-NOU-CPEEKt20]'2S6*PEEK(. 13) V50 =IF 
TI<=0 THEN 1700 

436 POKE 656,l:P0KE 657,17:'' INT C Til ; "Be 
' : RE TURN 

«37 REM-*************** 

438 REM AFFICHAGE SCORE 

439 REM *************** 
148 SC-SCt108*INT[TI) 

442 POKE 656,0:Q=37-LEN(STR*CSC)J:POKE 6 
57,0=? SC=IF SOHI THEN HI-SC:POKE 656,2 
■POKE 657,0:' SC 
444 GOTO 110 

447 RE" ****************** 

448 REM LACHER DE BROUETTE 

449 REM ****************** 

458 IF X>17 OR PEEK(A*XtY*28*41)01 OR C 

B<>8 THEN 110 

451 FOR 1-0 TO 1S:S0UN0 8, 188, 10, 1 1 :NEXT 

I:SOUNO 0,0, 0t0 
455 P-0:B=8:GOTO 110 
497 REM ************* 
49B RE" DEP. BROUETTE 

499 REn ************* 

500 IF X<18 THEN POKE U'21 , CB :CB=PEEKCUt 
22J :GOT0 520 

502 2=39520:IF T=2 THEN 2=37000 

504 IF X=]9 THEN 510 

505 IF T-3 THEN 110 
50? POKE U+21,CB:RETURN 

510 CB=PEEKCZt211 =IF CB=0 THEN POKE Z*21 

,66 

512 RETURN 

520 IF CB-8 THEN POKE 11*22, 86 

521 RETURN 

54? REM ************* 

548 RE" LACHER DE SAC 

549 REM ************* 

550 U=A*X*Y*28*40:IF CT-2 AND X-13 AND Y 
<131 OR CT-3 ANO X-3J THEN 118 

552 IF PEEKCU-201008 AND PEEK(U-201 OPE 
EKCU-40]tl THEN 110 

553 FOR 1-0 TO 10=SOUNO 0, 120, 10, 1 1 :N£XT 

1. : SOUND 0,0,0,8 

555 IF Y-18 OR PEEKCU1-1 THEN 570 

557 Z-Y:CS-PEEKtU-40) :P=0 

558 Z-Z»l =U-A*X»Z*20:POKE U-20, CS :CS=PEE 
KCUJ:PDKE U, 138 

559 Q-PEEKCU*20]=IF 0>I36 ANO 0<143 THEN 
561 

560 IF 0O131 AND BOB AND 0O136 THEN 2 



617 REI 

618 REH "UT OE L'ASCENSEUR 

619 REM ****************** 

620 IF B-l THEN B=0 =P-0 

621 IF tT«2 AND Y=ll) OR (T-3 AND Y=15J 
THEN DICT-1J--1 :GOT0 650 

622 IF Y*0 THEN DICT-1)= 1 :GOTO 626 
624 IF DICT-1)=-1 THEN 650 

626 POKE U,0:POKE U*20,73:POKE U*40,69 

627 IF 1=3 AND Y= 1 1 THEN Y= ] 2 :ASSC2J= 13 : 
GOTO 632 

628 Y-Y*l :U=U*20:IF PEEKCU<19)01 OR PEE 
K[U*21)01 THEN 630 

029 GOTO 626 

630 Y-Y<1 :ASSCT-l)'Ytl :POKE L>,0:POKE U*2 
fl,73:P0KE U*40,69:UAU=19 

631 GOSUB 700:USA=0 

632 FOR 1=0 TO 14:60SU8 435:IF STICK[0]= 
11 AND" PEEKCU*YAUK>1 AND PEEKCU*UAU»20) 
Ol THEN USA=! :GOT0 188 

633 IF STICKt8J=7 AND PEEKCLHUAU + 2) O 1 A 
ND PEEKCU'UAUt22]«l THEN USA= I :G010 100 

634 NEXT I:U=A*X*Y*20:GOTO 620 

647 REM **************** 

648 REM MONTEE ASCENSEUR 

649 REM **************** 

650 POKE U-20,73:POKE U,69:P0KE U+20,0 

651 IF T-3 ANO Y-12 THEN Y-l 1 :ASSC2)= 12 : 
GOTO 632 

652 Y-Y-l:IF PEEKCU- 131 O 1 OR PEEKCU-211 
(>1 1HEN 654 

653 U"U-28:G0T0 650 

654 Y=Y-l:U*U-2B:ASSr.T-l)-Y+l:P0KE U-20, 
73--P0KE U,69:P0KE U*20, :UAU=-21 :GOTO 63 



655 REM *« 

656 REM DEP. CHARIOT 

657 REM ************ 

656 IF Y-4 THEN CG=4 :CD= 1 1 =T1G= J :&0T0 66 



699 REM 

700 GOSUB 1900:MO= NOT MO :XM=HXCMO-' 1 1 : YM 
-MYCMCW-U :T(1-nTti1Dtl3 :An="A(MO«l) :HM=MHC 
MOH) !BM=MBCMOtl ) 

701 UM=AM«XM-YM*20 

702 IF TMOT THEN ON Ttt GOTO 758,745,128 
8 

784 ON T GOTO 1588,1550,1600 
745 ON I GOTO 1158,188,1188 
747 RE" ************************ 
^48 REM MUT. GARDIENS Tl UERS T2 
749 REM ************************ 
?50 IF Y"=8 OR YM=4 OR YM=18 OR CYf1=]l A 
ND X">16) OR CtYM=6 OR YM=131 AND X(33 T 
HEN 1880 

7SS IF tY"=8 OR YM=11 OR YM=15) AND XM>3 
ANO XM<1? THEN 1058 
P50 GOTO 1408 

797 RE" ************** 

798 RE" INITIALISATION 

799 REM ************** 

800 R=PEEKt 1061-20 :POKE 756,R:F0R X=0 10 
1023=POKE R*256«X,PEEKtS7344.XJ :NEXT X 

802 L=R*256.0:FOR X=0 TO 119:READ B:POKE 

u.X,B:NEXT X 
804 DATA 239,239,233,0,254,254,254,0,0,2 
25,31,31,30,0,2,2,36, 126,36,36,36, 126,36 
,36, 12,56, 16,56, 124,124, 124,56 
985 DATA 0,255,98,165, 165,90, 165, 126,0, 1 
6,31,47,55,32,6,6,0,8,248,244,236,4,96,9 
6,65, 127, 13,22, 14,6,6,14 
B86 DATA 8,24,24,24,16,16,56,59,32,152,2 
0.24,44,36,72,44,0,24,24,24,8,8,28,92,58 
,25,24,24,32,36, 18,52 

807 DATA 0,24,98,90,74,74,126,60,24,24,5 
6,40,48,36,36,66,68,36,36,40,40,56,24,24 
810 FOR X^200 10 207:READ B:POKE LiX,B:N 
EX1 X 

815 DATA 68,126,74,74,90,90,24,0 
850 RETURN 

897 REM ********* 

898 REM TABLEAU 1 

899 RE" ********* 

900 DA1A 69,39120,40,3,1,12,1,6,1,12,1,6 
,17,3,17,1,3)12,1,4,3, 12, 1,4, I, 1,1 1,2, i, 
•=,1,1. 11,2, 1,4, 1, 1,1,3, 1,2, 1 

902 DATA 4,1,1,11,2,4,1,1,1,11,2,4,1,3,1 
2, 1,4,3, 12,1,6,14,6,14,6, 1,16,40 
983' DATA 5,5,5,5, 12,2,7,2, 19,14, 16 
906 DATA 4,3,2,17,1,6,6,13,18,2,16,2,3 
987 DATA 9,5 

927 RE""********* 

928 REM TABLEAU 2 
329 RE" ********* 

930 DATS 70,39520,40,1,1,8,1,18,1,8,1,1, 
<9, 1,13, 1,1, 2, 1,3, 1,10, 1,1, 1,2, 1,3, 1,18, 
1,4,1,3,9,2,6,3,9,2,6,14,1,6,40 

932 DATA 6,1,6,1,5,3,4,8,5,4,1,14,5,4,1. 
3,6,5,8, 1,6,1,4,18,2, 18,2 

933 DATA 7, B, 5, 10,3, 15,6, 16,3, IB, 12, 16, 1 
9,2,16 

935 DATA 6,4,2,3,2,6,3,8,10,9,15,5,0,15, 
16,3,16,5,4 

936 DATA 11,19 

947 RE" ********* 

948 RE" TABLEAU 3 

949 RE" ********* 

950 DATA 64,37000,40,3,1, 12, 1 , 3, 13, 1 , 19, 
4,1,6,1,5,1,4, 1,8,7,4,7,2,7,4,7,511,7, 1 

951 DATA 5,1,5,1,7,1,5.1,3,6,1,4,5,1,3,6 
.1,14, 4, 1.4, 11, 4, 1,4, 1,7, 1,6, 1,1, 13, 1,19 



I IF Y-15 THEN CG=16:CD=]7:TTG=2=GOT0 953 DATA 7,6,13,8,16,14,4,17.7,16,11,15, 
16, 16.1 

955 DATA 8,16,2,2,12,5,2,18,5,2,15,6,3,9 
,9,4,16,12,4,11,14,2,13,12,1 

956 DATA 5, 16 

997 RE" ******************** 

998 RE" DEP. GARDIENS DRCITE 

999 RE" ******************** 

1000 ON T" GOTO 1015,1005,1018 

1005 IF XM=19 THEN TM=3:XM=-1 :AM=37000 

1006 GOTO 101? 
1818 IF XM-19 THEN 1031 
1012 GOTO 1017 

1815 IF XM=|9 1HEN Tn=2:XM=-l :AM=39520 
1017 UIM=AM*xn.Yf1*28-t| :T1=PEEK(UM):T2=PEE 
K£-JMt20] 

1821 IF Tl-I OR T2-1 OR CT1M36 AND TKI 
i3J OR U2>]36 ANO 12<143) THEN 1031 

1023 IF YHOIB AND T2=0 AND PEEKCUM*40)= 
THEN 1650 

1024 IF CT1772 AND T ! <?3J OR CT2>72 AND 
12<79) 1HEN 1700 

1825 POKE U",137iIF T2=0 OR 12-131 THEN 
"OKE UMi20, 136 
1027 POKE UM,HM:IF BHOl THEN POKE Ut1«28 



668 CG^0:CD=16:1TG=1 

661 MIC=l:IF U=?l THEN X=X-1 :POKE U,0:U= 
U-l :CT=PEEKCU1 :POKE V, 73 

662 IF RND(0J>8.5 THEN 1818 
664 IF X=CD AND T=TTG*1 THEN 1810 
666 D0C = 664:X=Xi 1 :g=U< 1 :IF X<>18 THEN 68 

666 11-96:T2-154:A=39520:IF T-2 THEN Tl= 

136:T2=144:A-3?808 

678 POKE U-1,CT:P0KE LH I 9, CCG :POKE U.73-" 

POKE U*20,78:POKE 40298, Tl :POKE 40291,12 

672 POKE U,CR:POKE Uh20,CCD 

674 X=0:T = T*I :U=A-.Y*20 = CT=PEEKCU1 tCCOPE 

EKty+213 :CCG=PEEKCU-20) :CR=PEEKCUtll 

676 POKE U,73:PQKE U'20,78:PDKE U*21»7H 

GOTO 690 

684 Tl-PEEKCU):T2-PE£Ki;U*2]):P0KE U,73:P 

OKE U'28,70:POKE U-1,CT:P0KE U'21,7l:POK 

E U« 13, CCG 

686 CT-T 1 :CCG=CCD :CCD=T2 :CR=PEEKrU+ 1 1 

687 GOSUB 435 

698 IF STICKt0H>14 THEN GOTO OOC 
691 IF CCG=131 OR CC0=131 OR CCC6M37 AN 
CCG<1«J OR tCCD>137 AND CCD<143) OR C 
T=3 ANO (x-2 OR X-31) THEN 664 

632 MIC-0:8OTO 180 
697 REM ************* 
63B REM DEP. GARDIENS 



1029 XM=XMi] :HM=U :BM=T2:IF T2O0 AND T2 
0131 THEN BM-1 

1831 MX{M0tl] = XM:nYCM0.1)=YM:MTtM0H) = TM 
:MAC"0+1)-AM:MH[M0«-1 )=HM :M8(M0+ 1 )=BM 



1032 IF XX-1 1HEN M0= NOT MO:XX'0 

1033 RETURN 

1047 REM ******************** 
1848 RE" OEP. GARDIENS GAUCHE 

1049 RE" ******************** 

1050 ON m GOTO 1065,1060,1855 
1055 IF XM«0 THEN Tn=2:XM=20:AM=39S20 
1856 GOTO 1866 

I860 IF XM=0 THEN TM=1 :xn=20 :AT1-331 20 
1B61 GOTO 1066 
1865 IF XM^0 THEN 1031 
1066 UM=An-.XM*YM*20-l :T1 = PEEKCU") :12=PEE 
<[WM-i20J 

1068 IF tll>72 AND TK79J OR CT2>?2 AND 
■2<73) THEN 1700 

1070 IF T 1 = 1 OR 12=1 OR [11M36 AND TKI 
13J OR C12M36 AND T2<143D THEN 1031 
1872 IF YH018 «ND T2«8 AND PEEKtUM- 481- 

3 THEN 1658 

1874 POKE lJM,133:IF T2=8 OR T2=131 THEN 

POKE UM.28, 140 

1076 POKE U",HH:IF BMOl 1HEN POKE UM- 20 

,BM 

107? xn=XM-l :HM=T1 :BM=T2:IF 12O0 AND T2 

0131 1HEN BM=1 

1079 GOTO 1031 

103? RE" ******** 

1098 RE" 1UT. GARDIENS T2 UERS T3 

1099 RE" ************************ 
H00 IF YM=8 OR CYn-3 AND X">14J OR t V( 

4 AND XM<13) OR (Y"=8 AND XM>]3 AND XIV 
8) OR YM=1 1 OR (Y"=I4 AND XM<151 1H£N 10 

M 

1102 IF CXM=4 AND YM<4) OR tXM=18 ANO YM 

(9 AND Yn>2) THEN 141 

1105 IF tY"=15 AND (XM<8 OR XM>14)1 OR C 

YH=18 AND XM<15) 1HEN 1800 

1118 IF CYM=8 ANO XM>2) OR CY"=18 AND XM 

>15] THEN 1858 

1115 IF CYM=5 AND XM=153 OR [YM=B AND tX 

M=1S OR XM=2J) OR CYM=15 AND XM=B) OR (Y 

M=18 AND XM=15) THEN 1480 

1120 IE Vri-H and xn=is THEN 1150 

1125 GOTO 1400 

1147 REM ************************ 

1148 REM MUT. GARDIENS T2 UERS Tl 

1149 REM ************************ 

1150 IF YN-0 OR YM-4 OR YM-1J OR YM-18 T 
HEN 1058 

1155 IF tYM-3 AND XM=13) OR CYM-14 AND X 

M>8] OR CYM=15 ANO XM>151 OR CYM=B AND X 

M>2] THEN 1050 

1160 IF (Y"=3 ANO XM-1B) OR [[XM=B DR XM 

=153 AND YM>12] THEN 1450 

1165 IF CY"=5 AND XM=15J OR CYM-6 AND xh 

=2) THEN 1408 

1178 IF (YM-3 AND XM>14) OR CYM-1S ANO X 

M<83 THEN 1058 

1175 IF XM=1B AND YM>3 AND YMC6 THEN 145 

8 

11B8 GOTO 1480 

1137 REM ************************ 

U9B REM "UT. GARDIENS T3 UERS T2 

1199 RE" ************************ 

1200 IF xn=0 THEN 1059 
1205 If PEEKCUM-DOl AND PEEKCUM*13K> 1 

THEN 1050 
1210 IF YM<8 THEN 1400 
1215 GOTO 1458 
1397 RE" ****************** 
I33B RE" DEP. GARDIENS HAUT 
1333 RE" ****************** 

1400 IF B"-131 OR tCBM=136 OR BM-1] AND 
HM=131] THEN 1482 

1401 GOTO 1831 

1402 IF BM=1 THEN Bn=136 

1403 Tl-PEEKCUM-20):If (T1M36 AND Tl 
3) OR Tl-66 THEN 1031 

1404 IF T1=7B OR Tl*?6 OR Tl=74 THEN 170 


1405 POKE UM-20,14l:POKE U",142:IF BMOl 
96 THEN POKE UMi20, 1 31 

I486 B"-Hn:HM=Tl :YM=Y"- : 1 :GOTO 1031 

1447 RE" ***************** 

144E RE"' TEP. GARDIENS BAS 

1443 RE" ***************** 

1450 IF Y"=18 THEN 1031 

1451 U^PEEKtUM.40) :IF iJ> 1 36 AND UK143 U 
EN 1031 

1452 IF uJ=0 THEN 1678 

1454 IF ul"77 OR U=75 OR U=73 1HEN 1700 
1456 IF UOJ31 AND HO 130 ANO U<>?2 THEN 

1831 
1458 POKE UM,HM:POKE UM*20,14l:IF U=!3] 
1HEN POKE UM-.40, 142 
1460 H1=BM:BM='J:YM=Y"' 1 :GOT0 1031 
1497 RE" *********************. 
1438 REM 1UT. GARDIENS DANS Tl 
1499 REM ********************* 
1588 IF CXM>2 AND XM<9 AND YM<5 AND X=16 

I ™ EN 75e Suite page 25 



_POKER CINQ 

Void pour le plus grand plaisir des amateurs du genre, 
un jeu de poker bien singulier. 



Joseph PAUMIER 
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:n2ooel_sefori - 11 



2rdZ!!!ur U r 1 



200 C0LaFJ15,rt,4!K! 






■FOHOUTPUTASHI :cls:p*"- 



1T0B: PRESET ( J#S*' 
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MSX 
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|1>16J OR CYM=7 AND XM<10) OR CYM=6 fiNO X AND x=2) OR FEEKC 
M=l5 AND XM<X) THEN 1050 

i63i goto laee 

1640 U=PEEKCuMt40) :IF W=l3l OR W=l95 OR 
U=?2 THEN 1450 



'*20-.2l 3 0663 THEN 




1581 IF VMOY THEN On SGN(3~X")t2 GOTO 1 

050, 1504, 1000 

1502 GOTO 1506 

1504 ON SGNCY-YM)+2 GOTO 1400, 1506, 1450 

1506 ON SGNtX-xrn + 2 GOTO 1050,0,1000 

1547 REM ********************* 

154B REM HUT. GARDIENS OANS T2 

1549 REM ********************* 

1550 IF X<13 AND CY>8 OR Y<33 THEN 1556 

1551 IF YM=0 OR CYM=4 AND XM<133 THEN ON 
SGNU3-XM).2 GOTO 1050,1000,1000 

1552 IF YM>4 AND YM<3 AND xntl2 THEN ON 
SGNC2-XM3-2 GOTO 1050,1400,1400 

1553 IF YM=15 PINO xn=15 THEN 1400 

1554 IF CYM>8 UNO XM<133 OR YM>10 THEN 
H SGN[8-XM)i-2 GOTO 1050,1400,1000 

1555 IF XM>]2 AND YM<9 RND YM>2 THEN 159 
3 

1556 ON SGNCY-YM)i2 GOTO 1557,1570,1585 

1557 IF BM=13] OR [[Bt1=196 OR BM=!) ANO 
HM-131J 1HEN 1403 

1560 IF Yf1>lB 1HEN ON SGNC6-XM)*2 GOTO 1 

050,1400,1000 

1562 IF YM=8 THEN 1050 

1564 DN SGNC4-Xm*2 GOTO 1050,1400,1000 

1570 ON SGN[X-XM)«2 GOTO 1050,0,1000 

1585 W=PEEKCUMi-403 :IF U=l3l OR U=l96 OR 

W=72 THEN 1 450 

1530 IF YM>? THEN ON SGNC8-XM3+2 GOTO 10 

50, 1450, 1000 

1592 IF YM>3 AND Xt1>-1 fiNO XM<6 THEN ON 
SGNt2-XM)+2 GOTO 1050,0,1000 

1593 IF XMM3 AND YM=0 THEN 1050 

1594 GOTO 1000 

1595 IF YM=8 AND XM<18 THEN 1000 

1596 IF XM=I8 AND YM>3 THEN 1400 

15S? ON SGNCX-XP13H2 GOTO 1050,1450,1000 

1598 REM HOT. GARDIENS DANS T3 

1599 REn ********************* 

1600 IF WIOY THEN ON SGN[Y-YM)t2 GOTO 1 
630,0, 1640 

1602 ON SGN[X-XM)t2 GOTO 1050,0, 100? 

1630 IF BM=13I OR CtBn=196 OR BM= 1) AND 
HM=131D THEN 1403 

1631 IF X>3 AND X<10 AND Y>6 AND Y<13 AN 
XM>9 AND XM<14 AND YM> 1 1 AND YM<14 THE 
N 1050 

'632 IF CYM=10 «ND XH>151 OR CYMO AND X 



1542 IF CYM=6 FIND XM<15) OR CY«=0 AND xn 

19 AND XM<16] OR XM<3 THEN 1000 

1644 B010 1050 

1647 REM ************** 

1548 REM CHUTE GARDIENS 

1649 REM ************** 

1650 IF PEEKCUM+393=0 AND XM-1=MXC NOT n 
0) AND TM=MTf NOT 10) THEN 100 

1651 IF Xmi=rlXC NOT MO) AND TM=MTt NOT 
MO) THEN 100 

1652 POKE UM.HMHF BMOl THEN POKE UM-t-20 
, BM 



I=XMt1:IF PEEKCUM'-39)=0 THEN > 



1653 : 
-2 

1654 YM=YMrl :UM=AMtXM+YM*20:POKE VM-20,0 
:POKE UM,143:P0KE UI+20,154 

1655 SOUND 0.YM+S, 10,11 

1656 IF PEEKCUMf40)=0 THEN 1654 

1558 FOR 1=0 TO 15:S0UND 0, 1 45, 8, 10 :NEXT 
I: SOUND 0,0,0,9 

1659 IF PEEK CUM+40 1>72 fiND PEEKCUM+40) <? 
9 THEN 1700 

1660 IF PEEKCUM+403O1 THEN YM=YM* 1 :POKE 
UM,0:POKE UM*20, 1 37 :HM=0 :BM=1 

1661 IF PEEKCUMi403=131 THEN BM=]31:P0KE 
UM+40, 13B 

1662 XX=1 :G010 1031 

1670 IF HM0131 THEN GOTO 100 
1672 FOR YM=4 TO 6 :UM=AM-i-XMi-YM*20 :POKE <J 
M,l3l:P0KE Utl+20, 143:P0KE UM.40, 154 :NEXT 
YM:YM=6:G0TO 1654 

1697 REM ******* 

1698 REM PERDU 3 

1699 REM ******* 

1700 FOR 1=0 10 50:SOUND 0, 1,2, 15:N£XT I 
-SOUND 0,0,0,0 

1701 NU=NU-1 :IF NU>=0 THEN 1705 

1702 POKE 657,0:POKE 656, 1 ^ "GAME OUER" 
:FOR 1-0 TO ?00:NEXT I :POKE 40290, 128:P0 
KE 40291, 157 'GOTO 9 

1705 U=A+XtY*20:PDKE V.CT^IF CPOl THEN 
POKE Ut20,CP 

1707 FOR 1=1 TO 2:U=MfitI3*MX(I)tMYCI)*20 
:POKE U,MHCI):IF MBCDOl THEN POKE U*20 
,MBCI1 

1708 NEXT I 

1710 FOR 1 = 37003 TO 37303 STEP 20 :POKE T 

,0:NEXT I :PDKE 1,69 

1712 FOR 1=39533 TO 39753 STEP 20:POKE I 

,0:NEXT I=POKE 1,69 

1714 ASS CI 3=12 :ASSC2]=16:MA[1 3=39120 :MA( 

21=37000 :MTC 13-1 :MTf2)=3 =MXU )=7 :MX(2)= 1 

6:MYtl)=0:MYC2)=15 

1716 FOR I«l TO 2:M=MfiCI)*MXCI3*MY(I)*20 

:MHCI3=0:MBCI)=1 lIF PEEKCU*20) <>0 THEN M 

3CI)=PEEKCU+20] 

1718 NEXT I 

1719 IF 8=1 AND CCT=2 AND X=123 OR CT-3 



1740 

1720 X=2:v=lB:A-39120:T=l :POKE 39482,73: 

CT«0:CP=0:IF PEEKC39502) <>0' THEN CP=l:GO 

TO 1722 

i?21 POKE 39502,74 

1722 POKE 40290, 208 :POKE 40291,152 

1723 POKE 13,0:POKE 20,0 

1724 IF B=l AND CT=2 AND Xcl2] OR [1=3 A 
ND X=2J THEN 1740 

1725 IF P=66 1HEN P=0 :B=0 

1727 M0=1 :POKE 656,2:P0KE 657,NUf2=? " " 
:POKE 657,NUt2:'> " " ! :GOTO 110 

1740 D=l:F-12:IF T=3 THEN 0=4 :F= 18 :&OTD 
1742 

1741 IF T-l THEN D-4:F-15 

1742 FOR I=fi-t20iD TO At20tF:IF PEEKCI30 

THEN NEXT I 

1744 POKE I,66=G0TO 1720 

1747 REM ************ 

1748 REM PRESENTATION 

1749 REf ************ 

1750 FOR 1=3 TO 16:PDSITI0N 1,2!? #6iCHR 
*C33]:POSITI0N I,B»? #6 iCHR«C33) :NEXT I 
1752 FOR 1=3 TO 5:P0SITI0N 3,1:7 *6;CHR* 
T333 POSITION IB,1VJ #6 iCHR«[33) :NEXT I 
1755 POSITION 5,4:? tt6i"le m I neur " :POSI 
TION 15,1:? #6iCHR*C6J iCHR«C73 

1760 FOR 1=0 TO 19:P0SITI0N I, 15=? #6;CH 

RtC33J POSITION 1,16:? #6 ;CHR*C333 :NEXT 

I 

1763 POSITION 1,14:? #6 ;CHR*t8J i " " jCHR« 

fl32);CHR*C132 3 ;" " !CHR«C 10) ;CHR*C23 ; 

';CHR*C1723 i" ";CHR*C172) 
1765 POSITION 9,13:? KB iCHR*C9) ;POSITION 

16,13:? tt6SCHR#(171)r " ;CHR«t 171 3 
1800 RETURN 

1807 REM ******************* 

1808 REM OEP, CHARIOT GAUCHE 
1B09 REM ******************* 
1810 IF X=CG AND 1 =TTG THEN 666 

1812 DOC=1810:X=X-1 :U=U-1 :IF XO-1 THEN 

1820 

1814 T1-208:T2=152:A=39120:IF 1=3 THEN T 

1 = 96--T2=154:A=39520 

1B16 POKE U*1,CT:P0KE Ui-21 , CCG :PDKE U+22 

,CCD=X=19:T"T-l:U=Ai-X+Y*20:CT=PEEKCU):CC 

G=PEEK [0*203 

1818 POKE U,73=P0KE Ut20,?0:POKE 40290, T 

I :P0KE 4029l.,T2:GOTO 587 

1820 Tl=PEEKCU):T2=PEEK[Ut20J:POK£ U.73: 

POKE U*20,70:POKE U-<l,Cl:POKE U+21,?l 

1822 IF X(18 THEN POKE U*22,CCD 

1B24 CT=Tl :CCD=CCG:CCG = T2:G0T0 6B7 

I 847 REM ******* 

1848 REM GAGNE t 

1849 REM ******* 

1950 POKE 657,l:P0KE 655,1:? 'BRAUQ-' 
1852 FOR 1=0 TO 600:NEXT I :NOU=NOU-20 iJF 
-1OU=20 THEN NOU-40 

1854 FOR 1=100 TO 1 STEP -1:S0UND 0,1,2, 
i5:NEXT I J POKE 657,1:? " " :SOUND 0,0 
,0,0:GOTO 10 



1897 REM ************************** 

1898 REM L'ASCENSEUR REDESCENT SEUL 

1899 REM ************************** 

1900 IF USA=0 THEN RETURN 
1905 TI*I'IF ST-7 THEN Tl — 1 

1910 USA=0:POKE fli-flSSCT-l 3*20«-XfT 1 , : T2= 
37323 :IF T=2 THEN T2=39?73 
1312 ASS[T-1)«12:IF T=3 THEN ASS[T-1]=16 
1915 Tl=PEEKCT23=POKE T2,69:IF TK137 OR 
Tl>]42 THEN RETURN 
1920 IF MYt2)=X THEN MBC23 = 1 :RETURN 
1925 MBtl)=l :RETURN 

1997 RE-M ***** 

1998 REM PAUSE 
1399 REM ***** 
2000 TU = PEEKf20):TI2=PEEKC19):FOR 1=0 T 
20:SOUND 0, 1-50, 2, 15 :NEX1 I :SOUND 
9,0 

2095 POKE 656,3:POKE 657,11:? "PAUSE" 
2010 IF S1ICKC03-15 1 HEN 2010 
20iS PJKE 764,255:^0KE 20,TIl:POKE 19, TI 
2 

2017 POKE 656,3:P0KE 657,11:? " '{ 

7020 G010 110 

2047 REM ******************** 

2048 REM TIR CBPRRE D'ESPBCE3 

2049 REM ******************** 

2050 IF mnd=8 fiND T-2 ANO X-6 AND Y=15 T 
HEN MND=1 :P=0:POKE 39825, 0:POKE 39845,0: 
GOTO 2094 

2055 U=A+XiY*20:IF PEEKCU3-77 THEN 2094 

2060 OI=l:IF PEEKCU)=75 THEN DI=-l 

2065 IF fDI=l AND X-19) OR CDI— I AND X- 

03 THEN 2094 

2070 IF PEEKEU*0I3Ol37 AND PEEKCUtODO 

139 AND P£EKCUtDI3<>l4l THEN 2094 

2075 2=1 =IF MX(2)=XlDI AND MYC2]=Y THEN 

i = 2 

20B0 IF 1=3 THEN MTU)* 1 :MAC2) = 39120 :GOT 

0.2084 

2082 MT(23=3:MAfZ)^37000 

2084 IF MB[2X>1 THEN POKE U+20*DI, MBC23 

2085 POKE U'DI.MHCZ) :MYCZ)=0 

2086 MXC2) = INURNDC0)*16)*4:IF MTtl) = MT{ 
2) AND MX[2)=MX(13 AND MYC2)=MYC1) THEN 
2086 

208B Q=MT(23*MX(2):P0KE 0, 137 :MH(2) = :MB 

[2)"PEEKCQ'20) :IF MB(2)<>0 THEN MBC2)=1 

2090 IF mtSJO] THEN POKE 0,138 

2092 P=0 

2034 POKE 764,255:G0TD 110 

2136 REM **************************** 

2138 REM * 

2200 REM * OUF! C'EST TERMINE. . . 

2201 REM * ... MAIS ATTENTION 952 

2202 REM * IL EST uIUEMENT CONSEILLE 
2204 REM * D'ENREGISTRER LE PROGRAdME 
2206 REM * AUANT DE L'UTILISER. 

^208 REM * L'INSTRUCTION "POKE" 

2210 REM * PEUT PARFOIS JOUER 

2212 REM * OE IRES MfiUUAIS TOURS. 

2214 REM * 

2216 REM **************************** • 



REUNION 



Rien de plus simple que de reconstituer les couples 
d'objets presentes sur I'ecran. Attention, deux objets 
seulement seront visibles si multane merit. 

Philippe CAENEN 
Mode demploi dans le programme 



EXELVISION-EXL 100 



PHILIPPE CflENEN 
SUR E5CL l«t' 

M*-H*tttft*****.t ft************** 

* REGLES * 

txttrt t*t ****** * % * ** t: * * t * * * ****** 



i? CL3 "Cbb" 

13 CALL HPON< "b" ■ 1 ■ 1 > 

19 CALL COLOR! "0YLH1F" ■ 

S8 LOCATE (3+HAU.13> 

21 PRINT "PPEEUUNN1I0OHH" 

52 LOCATE <4+HRU,13> 

23 PRINT "RREEUUNNIIOONM" 

M CBLL COL0R("OYb"> 

25 RETURN 

26 LOCATE '6.1> 

27 PRINT "50 cartes vo«t aPI 
>? PRINT "...i do= de ce = cart 
23 PRINT "toy. tea sorter*." 

30 PRINT "GhMiM GWti t»t c 

31 PRINT "Celt » dire 1u. J il 
52 PRINT "idenLidue d? Hi le 



34 PRINT "Le 

35 PRINT "CM 



: du j 



I gosub 65 

. PRINT "flu r 
> PRINT ' 



"Ce jeu se jous ?, 1 on £ Jqumwj 
"avec 3 nivtaux de dlfficu.lt** ? 
i nombre liniite- de couPa " 



"EXEL 188 r.,or.tre le 
"Resarde2 alori *tt« 



s re stent cache ? 



"et fi* 

7 PRINT 

3 print "flu niveui 

J PRINT "=-jPF-1i9u.{ 

» PRINT "USflB Par 

I PRINT 

! PRINT "flu nivt«u 

J GOSUB 65 

1 PRINT 

5 PRINT "En voi'& S4 

5 PRINT 'dtPUCM 1 

7 PRINT "ch^i=ie- -= 

3 PRINT "la c?rte 5 

S PRINT "Retournez 

3 PRINT "EXEL 180 t 

1 PRIHT "et s'occuPe d*s scores ey> C-ji-^tisr. " 

? PRINT "du rosultat " 

J GOSUB 65 

1 GOTO 73 

5 CALL COLOR'.' "0Mb" .' 

f. LOCATE 122.1? 

* PRINT "APPUYEZ SUR IJME TOUCHE POUR CONTINIJER" 

i fi*=KEV» 



75 ( ***:*»*l* + j:i..risi.*«**:il:i-m> '.'■. 

76 ! * INITIALISATIONS * 

77 I. mttmtrt»fttffiimrnt*mi( 

78 I 

79 HAU=6 

50 GQSUB 1? 

51 LOCATE (15,l> 

82 PRINT "NIVEAU DE MFFICULTE ? FACILE 

83 PRINT "HOYEH '2 DIFFICILE 
S4 HAS=PND 

85 CALL I EY I c :<v . YV > 
St IF YY=0 THE'. «4 
S7 DIF=XX-43 

88 IF DIFO CM DIF>3 THEN 34 

89 LOCATE 115,24) 
98 PRINT OIF 

91 LOCATE (20,1) 

92 PRINT "1 OU 2 JOUEUR-' ■"■ 

93 EE»»KEY* 

94 IF EE*0"1"AND EE»-;>"2"THEN 91 

95 LOCATE CH»*25) 

96 PRINT EE» 

97 H.">VAL< EE* > 

95 IF NJO-2 THEN 183 

93 PRINT "NOM OK JOUEUR " 

LBO LOCATE (21,29) 

Kit ^■;r,EPT SEER VALIORTE'.UHLRHA ■■JiJE'. 11JNULL 

< "***" >.H00* 
182 GOTO 109 

103 PRINT "HUM [•'.! ler JOUEUR 
t84 LOCATE (21,25' 
105 ACCEPT BEEP VALIDATEC URLPHfl yilZE< 1 1 'NULL 

("JOUEUR l").N0«<9l 
IPC PRINT "NUN DU 2'ne JOUEUR " 
107 LOCRTE C 22.25* 
l„.- fn-rpPT P.EEP VAHDATE<UALPHR>SIZE< 111NULL 

("JOUEUR 2" >.WD§U> 

109 PAUSE .5 

110 J0U=1 

111 IF NJ0=2 THEN NPfl=15 t.L-E ni h= -J 

113 HRU=7 
II? GOSUB 17 

114 Did W 5B LB*'. 50 >.C"3ii ■■(:■*' 50.', VOf W •, 
CC'5«>.K»(7,2' 





:■ i.ni.i. oihe- i>-. ■■■.?.?.«:>'i;M'iiii:iiH.iy'i«iii:in'5' 

S CALL CHfif«I9, 

7 CALL CHflR':2S. 

3 CALL CHAR'. 21 

S CALL CHflR(22, 

i) CALL CHF,F(2^ ■'f:.:e'r' i j>jiH.>r< 1 >.>:Hj!OH.'-.r ! ..iH.- 

I CALL rnp,p< i-1 r 

S CRLL i:HRR.-;r.."nr.n 1 -;r.O':i':>;.'>i'..H;:'i--iiMiii.r 

3 CRLL CHRRC26. 



■ OOOOOO^OOyOO;--: 



CHRP- :•: 



. CHAR(36."7aF0^-.ri-:[i[.i[ii;,i.t.Wr('i:,rii;,[i- 

. "t;HAR'33. ■■nflr'SrH-nrniiirif-.VjrrfinriL'ii " 
. CHHP':33."00I?;r-:";r-!r-F7CCFFFFF ' 

. CHAR.' 40- "'."."i. •-■■.■. .......i..|i,..uiMijtiKil» 



'■■ -i- ■'::■:■■:■■:■:;. ■iJOi'i>o>-'' 



: '' ■?;. "0CTE7FFFBFBFeFeFE 
;., 5 j. "SsiSFi-'OO'-iCyOviJMO'; 
=■' 54."M3520^':0O;C2.i;:r: 
: '' 55. "e??33?7:^!eiSlElii 

-■ 5? "nseiooo?-f>^'.i:;o^O'"iJ' 



CHRP" .■.".. "VrrE7ET , EFFFF 
iHP'-.- i-t v-. i ._■ ~- = - f = - = -= ■ 



173 CALL CHARC75, " 9S8eC0Ct1U 00 1 «.«> it".-! IHJO" 

175 CALL CHAP' 70 . "OO0OOO00000'1OO0i:' : iF^7" . 

f.v. Mil i. :■■:■:■ ■■ .-■^■(-■■■■^■o-A',-' ! =.- 1 - ■ i :.---^'.-.oi.:i.!r-" 

173 CALL CHAP'.:';:; ". : co ; ro:'>-7^ c Of010>i7" 

179 CRLL CHRP'SS.-FFFFFFFFFFFFFFFFFFFF": 

138 CRLL CHRR'O?."E0C0c:0FOFFFEF'i^ii,;OI:ii" 

131 Li-ILL i-HRp. ■:■! O'OJ ■:.:.- ■:::-:.'OiJi.«.«J"iX":'i.'- 

132 CALL CHRF" ■:-=.■ E:['?::::?181Bi3O00008e"; 
]?? CALL lHhP'>-' ; "F.Oi^:r..;..-.,-.u:-.i„;i,ii„nM:,i:ir," 
194 I 

135 CALL CHAR<^."000^0O0rF7F7E7O7O7i:r\ 
13? CALL CHAR' 5? '^00?vC?!?FF; ^OOPh'OOO" ■ 

137 CALL CHflP'*?8."W)000008FEFF7L]F.OFOr-." 

138 CALL CHAR'?!. ^0^?t040.10.IO-1'.'.>mi : .0^0" 
189 CALL CHRP' 9.:- 0'?::I7i£ = FFFFFFF7E:3CtiH" 
130 CALL CHAR.^v"3f^'-?0.-0;:070?0W.;o^' 
191 CALL CHAP' i'.i - "7r'7i;7v7F.:'f- -.TWMWiy 

152 CALL CHHP'-95. ,, 0-:?v..'0?Oi:.i:-;-Vt-i.«jiji:iiJi.i" 

153 CALL CHRP' :=i?." ■?£■;! :E~FFFFf:0!-i'i(ii-iMi;«-!" 

194 I 

195 FOP I-B TO 7 

136 J=H:10+13 



!■-:■' [ ■•;• i mi -■ ■!'.'<: • .: ■ - ■ HFT.- ,'.UU|7U -: t HPV I+I.II.H5+; 

199 NEXT UU 

zW :t.>:t I 

:-'0i DATA 1 . 1 YE . 1 . I CM 1 - IK ■ 1 ■ 1MY.2, 1 YB.2. 1CM.2, 1BC2, 1 

70.^ ('ATR S.lPH..4,r,'F: .4. 1CM.4, 16C ,4. 1MY..5 lY(^-5. 1CM.5. ! 

20 J L-mTm t-IYE:.i?.H:M.;-iei;,i-;.IMY.7.1VE:.7.. ICM.7.ieC,7.1 

.■■CM PL"-;.TilRE 281 

?85 FOR 1=1 TO 25 

206 READ RA.ARAI 

207 R(2-*I>.A(2*I-1 >=AA 
70:; c«. jti > f:v 21 1 -I '=AAA* 
289 NEXT I 

218 FOR 1=50 TO 1 ^.TEP -1 

211 RA=1NTPND(I) 

212 CCI)-(KfW) 

213 M! I >=B*'Afl' 

214 FOR JaFW TO 1-1 

215 A' J'=A<J*n 

,;ie f-f ,"=P»' ."i i 



itrt* f f t n I tt t trrwrttt* 
SOUS-PROGRflMMES 1 t 

■ - - -'Tttttt*fttftt***r*n* 



;. fop r>i? TO 49 

) IF JFI.N1 THEN .-!=»:■( n+i vrfUL rOLOR'" I 

I Z=CC0.+ 1 1 IF >0 THEtl 236 



» Y=1NT' Q-'10)*4*2 

S GOSUB 238 
; NEXT 0. 
■ RETURN 

? FOR 1=0 TO ;- : LOCATE <Y+I,X>< 
* RETURN 

? IO,M=0-POP y=2 TO IS STEP ' 



> FOP X=l TO 37 3TEP 4 

1 IF PM THEN 243 

:■ IO=I0-M 

; Z=CC( 10 ' CALL COLOR'DD*' lO"'"' 

' GOTO 251 

3 11=11+1 

1 Z=C<I1> 

3 GALL COLOR' 0*' 1 1 ■■ ■ 

! W>UEi 233NE''T X IF 0=1 THEN 242 

3 NEXT YPETURN 

'. rfii.i r i;h np. "opb" -, 

I H*=PPTVPPT«THP»' 160>.3«!" -.10' 

5 LOCATE M.I >-FTF ! = ! TO 3'PRINT H* 

r PPINT'NE>:t t -PETUHH 

1 ' t*.x*v.***.xx**t*xxxwtx->t*twtwt 
! ! * CnRPS piJ JEU * 

i i ■i-tt:r:tr-fr*t*!t'*tttttftttt*ittt*t** 



'. ocrte ■■ 2? . 



.!=:- ".-MP ?.?= t+nnPN 

ruPN 

Hjn=2 THEN 274 
•CALL COLOR' "flF-.bl" vp 
J ■'■PRINT SCC 



CALL nx.nFr-i3GI-.IF".->- PRINT NOS' jOu >i>." 
■■ CALL i."[.OF" "HGbl" '-PP1N1 SC J'HJ ' 
3+Ii'PPINT NO«l~JOUJl" '" 
H+13>'PRINT SK1-J0O) 
:OIOR' "8NRI"-i 



IF F»0 THEN 283 



■ E- M2? AND E> r-i 



>131 THEN 283 



'.289.291.293 



r GOTO 254 

3 IF Um»2 THEN U' 1 1 1=IJ< 1 1 >-4 

I C.OJUP -j24 GO-.i.re :-2-: M=ijf 1 1 > : H=V( 1 1 1 ' GOTO 2B3 



: cc< f 1 1 :■ 



6P'II >=( V 1 1 )-5 ^*10'4+' IK 1 1 1+2 

7 IF p'.ni=p< i -THEN 203 
B K=U'- 1 1 i- 1 ■ Y=V( 1 1 .-3 ' Z=C( PC II > ) 
9 CALL COLOR' :*' ■- :' ■ GH-iib 3.if: 

8 11 = 11 + 1 TF II-2 THEii M=i.i.'-?':N=V.0.:GO?:iiB 32e^G0TU232 

1 PAUSE 1 ■ M-i.if i ■ N>v l i G0SU9 326 

2 IF D*'Pf0:o=D»'P'l ■ 'AND C'P'0>>=r.p. i othfh 

3 IF C>'P'8>>=3 OR C'P'1'>=3 THEN 310 
a FOR n=0 TO t'X-Uai 1-1 :Y=V< II )-3 
': .7=0. CRLL rrJLi'"-''' -'-ipf ■ GO?i IB 2^Fi 

S NEXT II 

7 FOR TI = 1 TO 2-C=LL ?FFErH' >'L .OP7C91B2BflB602FC" >'NEXT TI 

S IF IIJ0=1 THEN =CC = ^c-r-l r.r.iTn ?70 

3 SrXJW ■>*$<:.< x-J'-l GOTO 270 

3 I 

1 Cf ■- pc n i i=f;.- pt pi > -, r,-, Pl j , -, =c< P( 1 ) , 

? rovtV P.' > i-0«( P( 8 > > . DD«( P( 1 i >=D»( P( 1 > > 

: r^u !*■■■■■ L.ur>:--.-:-- , ; , ?; — -;>. ; .;n, ;? .:Floi0F7eCB" 

4 ePUI*=BRUI*?"02:eBO4CiO4?C>T.OOlOF5a40n^lAO0ROOC:FE" 

5 CALL SPEECWBRUI*) 

? IF HJO-I THEN SCC*SCC+1+T>IF-! VT2-G0TO 318 

? ?C' JOUi=SCf J0U->+t+'DIF-l>*2 

?. HPA-NPA-1-IF NPAO THFN "3^0 £1. -:F ?-? 

? ! 

I ! * SOIj-3 -PROGRAMMES 2 * 

; ! xtrtrxn*rt*t*x**Xf*imxx*txrt 
s ! 

1 CRLL COLOP'"0Gb!F" '-LOCATE (V< II >,lKtI>> 

=. PRINT CHPS'?22-'-PrTUPN 

s CALI COLOR'-nGb-'IOCRTE (N.M) 

' PRIMT " "RETURN 



i CiSlJi'-'ATF 'P.!'- IF NJ0=2 THFN ;?3P 

I PPIHT NOO*PR1NTPPINT "SCORE '";SCC 

> LOCATE ' 1 C • 1 •' PAUSE 2'PRINT "','0UI.E7 .vm i- PEJOUER '' TO^h 

■■ S*=KEY*IF ?*' >"0"PNP ^*f."N»THEN 336 

' IP S«="0"THEN RUN ELSE END 

3 IF ?pev -?C 1 T.THEN 340 

' PRINT "EGALITE 0E9 fTEUX JOUEUR? = " -SO' i : ■■POINT?" ■ GOTO ' 

j IF SCO '"E.CM -THEN JK=1 FLSE Jf'9 

1 PRINT NCKfl-JIOfc" A PERDU PAP" 

I PPIHT PRINT "LE GAGHAHT EST ;" 

3 CRLL COLORC "0YHFI".: LOCATE '10 

! LOCRTE '11 .20>PR]NT H0»' JK ' 

j CRLL rn[.riF'< "OYh" -GOTO 335 



:( 1-jk 



■ ; sc< ji- > 



20^-pPIHT HOtCJK) 



HEBDOGICIEL 27, rue du Gal-FOY 75008 PARIS 

VOUS POUVEZ VOUS ABONNER AU TARIF PREFERENTIEL DE 420 FRANCS POUR 52 NUMEROS AU UEU DE 
52 x 10 =520 FRANCS. ABONNEMENT POUR 6 MOIS : 220 FRANCS. Pour I'etranger: + 80 F. pour 1 AN 

+ 40 F. pour 6 MOIS. 

NOM: MATERIEL UTILISE : 

PRENOM : , . CONSOLE : 

ADRESSE: PERIPHERIES : 

BUREAU DISTRIBUTEUR: REGLEMENT JOINT : D CHEQUE DCCP 



SUPER TI BASIC 



7799 bask: simple 



Ameliorez votre BASIC simple grace a ce programme. 
4 nouvelles instructions issues du "Basic etendu" sont 
desormais a votre portee en BS. 

Jacques DAQUIN 



REMY DELAGE 
TI 99/40 . Bi 



:oo call clear 

,00 GOSUB 4300 
,00 ZOOM*= "00384 440 3E 
500 G05UEJ 26500 

600 call sound<iooo,: 

700 GOSUB 6700 



BOO ( 



i300 



ZOOM*- "0044444444' 
100 GOSUB 26500 
100 CALL S0UND12O00.' 

.. 151 



;. 330. 2. 392.; 

13B[05123124' 
,3.659,5.880. 



200 GOSUB 6700 

300 GOSUB 6300 

400 Z0OM*="OO7844447B4O4O40r.O516 312e" 

500 GOSUB 24500 

600 CALL SOUND(2000. 349. 2. 247.2.262.2) 

700- GOSUB 6700 

300 5GSUP 6300 

900 Z00M*="0O7C4O407e40407C[:052O]132'■ 

2100 CALL SOUND(2000.220,2,349,2, 392.2) 

2200 GOSUB 6700 

2300 GOSUB 4300 

2400 Z0OM*="0078444'4785O4B44CO524] 136" 

2500 GOSUB 26500 

2600 CALL S0UND(200O, 400. 2. 700.2.900,5.- 

3. 10) 

2700 GOSUB 6700 

2BO0 GOSUB 6300 

2900 ZOQM*="007C 1010 101 O1O10C 1014 J 140" 

3000 GOSUB 26500 

3100 CALL S0UND<2O00. 1047.2.988.2,1175.' 

320O GOSUB 6700 

3300 GOSUB 6300 

3400 Z0QM»="003B10 1010 10 1038 t 1018 3144" 

3500 GOSUB 26500 

3600 CALL SQUND(2000.784.2.B80,2.494.5> 

37O0 GD5U8 6700 

3800 GOSUB 6300 

39O0 ZOOM*="007824243B242478r.l60B314B" 

4000 GOSUB 26500 

41o0 call sound12000. 147.2. 165.2, 175,5) 

•1200 i;;dsub 6700 



7C444444: 1 



2K52- 



)1038tl4203144" 
,,2, 165,2,175,5) 



4400 ZOOM*="( 

4500 GOSUB 24500 

4600 CALL S0UNDI2O00. 262. 2,330.2.349,2) 

4700 GOSUB 6700 

4800 GOSUB 6300 

4900 Z00H«-"O03B444O3804443aC 16163156" 

5000 GOSUB 26500 

5100 CALL SDUND(2000.349.2,330,2,262.5) 

3200 80S KB 6/00 

53 OO GOSUB 63UO 

S4O0 ZOOM*-"003B1 

5500 GOSUB 265O0 

5600 CALL SOUND (2 

5700 GOSUB 6700 

5 BOO GOSUB 6300 

5900 ZDOK*="0O3844404O4O4438r. 16243 116" 

6000 GOSUB 26500 

6100 GOSUB 6700 

6200 GOTO 7100 

6300 FOR G=il TO 16 

6400 CALL COLORIG. 1. I) 

6500 NEXT G 

6600 RETURN 

4700 FOR G=ll TO 16 

6BO0 CALL COL0R(G,G-B,G) 

6900 NEXT G 

7000 RETURN 

7100 FOR 1=1 TO 7 

7200 CALL SOUNDt-60,-1 ,0) 

7300 CALL 5OUND<-60.-3,O) 

7400 NEXT I 

75O0 GOSUB 22300 

7600 FDR G-l 1 TO 16 

7700 CALL COLORIG, 2. 11 

7800 NEXT G 

7900 CALL CLEAR 

BOOO CALL SCREEN(ll) 

B100 DISPLAYAT*="[01O33VOUS ETES EN SUPE 

R TI BASIC" 

8200 GOSUB 22800 

B300 D15PL6VAT*="CO3033V0ICI LES NOUVELL 

ES POSSIBILI TES DONT VOUS DISPDSEZ:" 




B500 



B600 GOSUB 22800 



8700 D 



moo d: 



SPLAYQT*. 



)ISPLAYAT*="C0705 
8BO0 GOSUB 22S00 
B900 DISPLAVAT» = ,, [0BO5 
9000 GOSUB 22B00 

>ISFLAYAT*="r_0905 



9200 GOSUB 22800 



2/ACCEFTAT*" 



/ZOOMS" 



14600 



J DISP 



9300 DISPLAYATS="[24033VOTRE CHOIX 

9400 GOSUB 22800 

9500 ACCEPTAT«="£241B3S1ZE[013" 

9600 GOSUB 2400O 

9700 A=OAL(REP*) 

9B00 ON A GOTO 1O20O. 1 1400. 13401 

9900 REM 

10000 REM DISPLAYAT« EXPLICATE 

1O10O REM 

10200 CALL CLEAR 

1O30O DISPLAVAT»="t01033INSTRUC' 

LAYAT*-""CLL.C C3 TEXTE 

10400 GOSUB 22B0O 

105O0 D1SPLAYAT*="[05033VOTRE TEXTE [T*3 

EST' AFF1CHE A LA LIGNE L LLL3 . COLONNE 
C E CC1I2 CHIFFRES POUR L ET C) " 
10600 GOSUB 22S00 

10700 DISPLAYAT*=-"[10O33V0US DEFIN1SSEZ 
LA LIGNE [LL1 LA COLONNE CCC3. VOTRE TEXT 
E ( T»> ET EMPLOYEZ LE S/P 22800" 
10800 GOSUB 22BOO 
1090O GOSUB 2230O 
11000 GOTO 7900 

11200 REM ACCEPTAT* EXPLICATION 

1130O REM 

11400 CALL CLEAR 

11500 DISFLAYAT*='T.0103]IN5TRUCTION ACCE 

PTAT*=""CLL,CC 3SIZEESS3 

11600 GOSUB 22800 

1 1 700" I SPLAYAT1= " C 04O3 JCETTE INSTRUCT 10 
N CORRESPOND A <INPUT> " 
11B00 GOSUB 22800 

11900 DISPLAYAT*="CO7033V0US DEF1N1SSEZ 
LA LIGNE CLL3 LA COLONNE [CC3.LA LDNGUEU 
R MAXI AUTORISEE CSS3" 
12000 GOSUB 22800 

12100 DISPLAYATt= ,, C11033REP« PERMET DE R 
ECUPERER LES DONNEES EN MODE TEXTE. VAL 1 
REP *)EN MODE NUMERIOUE S/P 24000" 
12200 GOSUB 22B00 

12300 DISPLAYAT«="ri503:EXEnPLE: RENTREZ 
VOTRE PRENOM (10 LETTRES MAXI) ET ->ENT 
ER" 

12400 GOSUB 22800 

12300 ACCEPTAT»="[lBO5 3SIZEC103" 
12600 GOSUB 24000 
12700 DISPLAYATS-"[20O33VOTRE PRENOM EST 

12BO0 GOSUB 22800 

12900 GOSUB 22300 

13000 GOTO 7900 

13100 REM 

13200 REM FORMAT EXPLICATION 

13300 REM 

13400 CALL CLEAR 

13500 DISFLAYAT*^ 1 CO 103 J INSTRUCTION FORM 

13600 GOSUB 22800 

13700 DI5F-LAYATI="E04O33V0U5 PERMET D'EC 

RIRE TQUT NOM BRE ENTIER AU FORMAT DESIR 

E E T DE L'AFFICHER SOUS LA FORME DISP 

LOYAT*" 

13800 GOSUB 22B00 

13900 DISF'LAYAT*="C10033SI UN NOMBRE EST 

SUPERIEUR AU FDRMAT IL NE SERA PAS PR1S 

EN COMPTE" 
14000 GOSUIi 22SO0 

14100 Gosuf 22300 

14200 CALL CLEAR 

1430O DISPLAYAT*="C01033FORMAT DESIRE" 

14400 GOSUB 22B00 

14500 ACCEPTAT*="CO1173SIZE[013" 

14600 GOSUB 240OO 

147O0 FDRMAT=VAL<REP*1 

14800 DISPLAYAT*=' , C05O33RENTREZ UN NOMBR 

E " 

14900 GOSUB 22B00 

15000 DISPLAYAT»=" [0716 3RESULTAT" 

1510O GOSUB 22B00 

1520o FOR J=l TO 5 



CAMELEON 



1 5300 acceptat »= ■■ r. u9'j-_'. i s i . 

15400 GOSUB 24000 

15500 L=7*J 

15600 C=22 

15700 GOSUB 25700 

15BO0 DISPLAYAT*="[0BO33 

15900 GOSUB 22B00 

160O0 NEXT J 

GOSUB 22300 

GOTO 7900 



■ t,::oo 

16300 
li.400 



16500 REM 

16600 CALL CLEAR 

16700 DISPLAYAT»="COH 



16900 DISPLAYAT*="C0303 
R PAR 4 TOUT CARACTERE 
TRU CTION ZODM*" 
17OO0 GOSUB 22BO0 
17100 DISFLAYAT*="C0603 
ZOOM*=""X 

LCC3 CA 

17200 GOSUB 22B00 
17300 DISFLAYAT*="C0903 

CALL CHAR) LL=LIGNE 
FFR SS) CA=CARACTERE 



17500 






■CI30 



EXEMPLE" 
17600 GOSUB 22800 
17700 DISF'LAVAT*="C1603. 
FFICHER LIGNE 10 COLONNE 
17B0O GOSUB 22BO0 
17900 DI5FLAVAT*="C1803 
6427E1824C3" 
1BOO0 GOSUB 22800 
1B100 DISFLAYAT*="[2003 
RA :Z00M*=""18 2466427E 
18200 GOSUB 22800 
183O0 BI5PLAYATS="C2303 

18400 GOSUB 22B00 
18500 GOSUB 2230-: ■ 
J 8600 CALL CLEAR 
18700 CALL CHAR(95."1E 
1S800 CALL HCHARdO.5. 
1890O CALL HCHARI8.4.E 
19000 CALL HnHAR(8.5.' 
19100 CALL HCHARIB.10. 

19300 Z0QM*=' , 1S2466427E 
19400 GDSUB 26500 



17 700 I 



wco: 



INSTRUCTION 



LA SYNTAXE EST: 



i GOSUB 26500 



CARACTERE 96 I 



DEFINITION: 18246 



;66427E1824C3") 



B24C3L1010394" 



I'eSSAYER 



ZOOM*=' 



S1ZEC163' 



19800 GOSUB 22800 
19900 DISPLAYAT*="[0303J 
XXXXXXXXCLLCC3 CA 
20000 GOSUB 22800 

20100 acceptat»="[ 

20200 gosub 24000 

20300 ZOOI-f*=REP* 

20400 NXZZ»="" 

20500 ACCEPTAT»="CO327 3SIZEC023" 

20600 GOSUB 24000 

20700 L1=VAL<REP*> 

20BOO ACCEPTAT«="C03293SIZECO2]" 

20900 GOSUB 24000 

21000 C1=VAL(RER») 

21100 ACCEPTAT*-" C04033SIZECO33" 

21200 GOSUB 24000 

21300 CARACT=VAL(REP*)-1 

21400 GOSUB 26900 

21500 DISPLAYAT*="£2403JUN AUTRE EXEMPLE 

? (0/N) " 

21600 GOSUB 22800 

21700 ACCEPTAT*="C24273SIZEC013" 

21 BOO GOSUB 24000 

21900 IF REP*="0" THEN 1960O ELSE 7900 

22000 REM 

22100 REM CALL KEY 

22300 DISPLAYAT*="C24033APPUYEZ SUR UNE 

TOUCHE" 

22400 GOSUB 22800 



1 ZL'b'-M.'i 



22500 CALL KEYtl 

2260O IF S=0 THE 

22700 RETURN 

22800 REM 

22900 L-VAL (SEGS (DISFLAYAT*. 2. 2) ) 

23000 C=VAL(SEG* (DISFLAYAT*. 4,2) ) 

23100 L0N=LEN(DISPLAYAT*>-6 

23200 T*=SEG*(DISPLAYAT*.7.L0N) 

23300 FOR 1=1 TO LENIT*) 

23400 CALL HCHARIL. I+C-l , ASC (SEG* il 

23500 1 



1 NEXT I 

) RETURN 

) REM ACCEPTAT* S/F 

) REP»="" 

) CALL SOUND' 10O. 1000.0) 

> L=VAL(SEG»(ACCEPTAT».2.25 ) 

) C=VAL(SEG*lACCEPTATt,4.2)l 

SIZE=VAL(SEG*<ACCEFTAT*,i: 

FOR 1=1 TO SIZE 

CALL KEYtS.VR.VE) 

IF VR=13 THEN 25400 

CALL HCHAR(L.C,43) 

CALL HCHARIL, C. 32) 

IF VR<31 THEN 24700 

CALL HCHARIL, C,VR) 

REP*=REP*t-CHR*(VR) 



24600 
24700 



2520 
25300 
25400 

23 V..".' 



23900 
26000 

26100 



Pour se nourrir, deux cameleohs gourmands doivent ri- mdleon de gauche. Lorsqu'un insecle (figure par # ) appafait, il 

valiser de rapidite. VOUS etes I'un d'eux, bon appetit... ! v ° us faut appuyer sur one louche quelconque pour deptoyer votre 

r r langue el devorer ainsi voire proie. Lordinateur. lui aussi tres af- 

rr ■ v i(~ii inriDCM ,am6 ' ne vous fefa pas de cadeau - 

hrariCOIS Aavier JUUHUHtlN Un insecte vaul 10 points el au bout dun certain temps, la partie se 
termine et les scores s 'attic he nt. 

Mode demploi Pour recommencer, tapez un message commengant imperalivement 

Entrez votre nom (pas plus de 15 caracteres) el vous serez le ca- par "O", sinon, vous aurez droit a une animation d'adieu. 



c=c*i 

NEXT 1 

RETURN 

REM FORMAT S/P 

IF LENIREP*)>FDRMAT Th 

FT=F0RMAT-l_EN I REP* ) 

CALL HCHARIL.C.32.FT) 

FOR B0=1 TO LENIREP*) 



) CALL h 



■+BD-: 



.ASC (SEG*iRE 



26300 NEXT BO 

26400 .RETURN 

26500 REM ZOOM* S/P 

24600 CARACT=VAL I SEG* (ZOOM* . 23, LEN ( Z0( 

)-22))-l 

26700 LI -VAL I SEG* (ZOOM*. 18,2)) 

26BO0 Cl=VAL!SEG*IZDOM». 20.2) ) 

26900 FOR 1=1 TO 7 STEP 2 

27000 GOSUB 29400 

27100 NEXT I 

27200 CALL CHARtCARACT.NXZZ*) 

27300 CALL HCHAR(Ll.Cl.CARACT) 

27400 NXZZ»» UM 

27500 FOR 1=2 TO 8 STEP 2 

27600 GOSUB 29400 

27700 NEXT I 

27B00 CALL CHAR (CARACT, NXZZ*1 

27900 CALL HCHAR(L1.C1-M, CARACT) 

28000 NXZZ*="" 

2B100 FOR 1=9 TO 15 STEP 2 

28200 GOSUB 29400 

2B300 NEXT I 

2B400 CALL CHARtCARACT.NXZZ*) 

285O0 CALL HCHAR IL1 + 1, CI .CAftACT) 

28600 NXZZ*="" 

28700 FOR 1=10 TO 16 STEP 2 

28 BOO GOSUB 29400 

2B90O NEXT I 

29000 CALL CHARtCARACT.NXZZ*) 

29100 CALL HCHAR (L 1 + 1, CI +1, CARACT) 

29200 NXZI*""" 

29300 RETURN 

29400 A*=SEG*(ZOOM*,I,1) 

29500 AA=( (ASC(A*)>66)»-3)+((ASC(A*)> 

• -161-M (ASC(A*)>51H-3)+4B 

296O0 BB=ASC<A*)-4B 

29700 AAA=f (<ASC(A«1 >51)»12>+BB)+<(!A 

A*)>55)»12)+BB)+(l(ASC(A*)>57)*21)+BB 



:(A*) : 



■ 12) 



1+48 



29800 AAAA-( (AAA>31* 

29900 NXZ*=CHR*(AA) &CHR* (AAAAltiCHR* « 

CHR*(AAAA) 

30000 NXZZ*=NXZZ«&NXZ* 

30100 CARACT=CARACT+l/4 

30200 RETURN 



FX702P 



LIST 

1 SOTO 1OT1E 
REPffi HI CBKELE 
OS" 

2 RETM «»SE 

! SEH"C0PYRi6HT H 

EBOOBICIEL EI I 
"RDIEUr 
11 KBIT 35iVBC :fl! 



='-,=,<":B(="), 
=,-"!M> "VOTRE 

Hon mr.t 

a IF LEH(!!>15 TB 

EB IB 
13 IHP -HIVERU II 

H 8)",»:PRT "OR 
!"!:FOR 1=1 TO 
LEKit! 
M FOR J=LEH(tM 



IB 2*1 STEP -II 3 8B NEXT K 13B PUT CSS !;",-"; 158 FOR 1=1 TO LEW 

PRT CSR JIHIKI 48 IF £!="I";IF Rfl 98 FOR H=B TB 14:11 CSR l?i"-,",CSR *>:PRT Kltd.l) 1 
,l)i:KEXT JJNEX «t>(8-B)/18;0=l HIT 14-K 8!"-";CSR 181" "NEXT I:FOR 1= 

T I 3:P=-l:60T0 1e3 188 PRT CSR H1MSCS -":PRT 1 TO !88:BEST I 

IS FOR 1=1 TB m: 56 IF Ra»l).5!C(=" R 14-HiBI 148 KBIT 35:FRT "LE 168 HfllT 75:PRT :PR 

NEXT I:PRT :FOR l":60T0 78 118 HEXT H (B1H6BEBR EST: T "SCORE:"'- 




THEN 18 T CSR !:"";!£' 

i )="( l!Et«FCCSR II 1 

!-"tB!:»fllT IB: HD!2,ll);*)-"i 
E!="Bi) RE»0":Ft 8t: 1 

="IR !* 216 HEX! t::PP.T 

i FOR 1=1 TO 19 22B FOE i=2 TO IS:? 



K=6TB99 69 »=" " I2B PRT CSR 9:",=,- ":IF V=«:I="FER Pll 216 PRT CSR H-llKI RI B!D!!i:HEXT 1636 
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LE LOGICIEL DE LA SEMAINE PEPE LOUIS CONTRE LE GANG DES PUCES ! metlU 



SABRE WULF d' ULTIMATE 
pour SPECTRUM 



Nous partimes un seul, lier el 
pleiri de courage, a lassaut des 
soulerrains malefiques de Sabre 
Wull. le chevalier noir. Nous 
partimes. dis-je. car ma fidele 
epee Glamdril luisail doucemeni 
a mon cole, attendant paiiem- 
menl que je daigne bien vouloir 
me reveiller. Le sorcier blanc 
Molphar m'avait teleporle dans 
cet univers glauque el humide 
afin tie reconquerir les multiples 
Iresors derobes aux eltes duran! 
ces dernieres generations. Main- 
tenant pleinemenl en posses- 
sion de mes moyens. je me re- 
levais doucement pour mieux 
surprendre les trois premiers 
serpents a se dresser sur ma 
route. Seul un eclair blanc si- 
gnala te mouvement de Glamdril 
lorsqu'elle loucha les monslres. 
De leur morl. il ne resla qu'un 
nuage de poussiere bien vite 
dissipe. Dun pas (urtif mais sur, 
je me dirigeais vers le coffre de 
laulre cote de la grolle el m'em- 
parait de son conlenu dans un 
rapide geste dappropnation que 
les Mailres de ma Guilde men- 
seignerenl autrefois. Puis, cette 
premiere elape Iranchie. je glis- 
sais furtivement le long des 
parois a la recherche d'un pas- 
sage ou dune aulre grotte. Che- 
min faisant, ma raison 
commenca de vaciller a la vue 
de creatures qui ne pouvaienl 
elre que le fruit d'une imagina- 
tion malade: rhinoceros roses el 
combattants en baudruche ten- 
taienl vainemenl de barrer ma 
route, secroulant en silence 
sous la morsure glacee de 
Glamdril. Pris de panique devanl 
le nombre croissant d'ennemis, 
je pris la seule resolution qui me 
pariit saine: prendre mon cou- 
rage a deux mains et mes 
jambes a mon cou pour mieux 
me perdre dans le dedale sata- 
nique comme construil a mon 



intenton par cet internal Sabre 
WulL. 

Je viens de me reveiller. frisso- 
nant. Glamdril gil a mon llanc. 
sa lame fracassee encore plan- 
tee dans le heaume de mon 
dernier adversaire. Lorsque ]e 
dis dernier, ce nest pas parce 
que j'ai vamcu les pieges de ce 
monde. mais pluldt a cause de 
la tievre qui m habite el de cette 
plaie au venire qui laisse mon 
sang donner naissance a I'une 
de ces (leuts magiques qui 
poussenl dans les lieux sans lu- 

A peine 23% de laventure. au 
maximum de nos capacites Ulti- 
mate propose une nouvelle fois 
un jeu dune qualite remarqua- 
ble. Specialise dans un gra- 
phisme du type BD, Ultimate 
n'hesite pas & eJiminer les obs- 
tacles habituels des jeux d'aven- 
ture en oHranl un logiciel enlie- 
rement comrrande par joystick 
accompagre dune sorcnsatio" 
correcte pour le micro. Un bon 
leu dont or. ne se lasse pas ' 




RESUME DES EPISODES 
PRECEDENTS 

Harry Kong.i'Ombre Verte, a 
enleve vingt jeunes lilies et 
menace de les executer si on 
ne lui livre pas Steve Jobard, 
Jack Tramolo el Give Sans- 
cler, les celebres PDG de 
(irmes informatlques. Pepe 
Louis est charge par le Vieux 
de ramener ces trois hommes 
a Paris... 

6eme EPISODE: 

CA VA BOUILLIR ! 

La petile ville de Supertino 
s'etend au beau milieu de la 
Kelleconne-Valley. C'esl un peu 
la Mecque des inlormaticiens ou 
le paradis des Hackers (les 
accros de micro) comme disent 
les Yankees. En plein coeur 
d'un quarlier horrible qui pue le 
trie gagne a toute pompe el de- 
pense nimporte commeni. se 
trouvent les bureaux de la so- 
ciety Appoil. C'est la quo |e 
viens trainer mes guelres de 
vieux roublard. car j'ai rendez- 
vous avec Steve Jobard, ie brth 
lant PDG d'Appoil. L'holes 1 .;?' :;... 
est couverte de strass des pieds 
a ia teto. me coile un badge sur 
lo rovers du veslon et m'invito a 
patlenter dans le hall ou snni 
exposees les petites merveiiies 
de la societe Je tourniccte c s- 
traitement en rollechissanl a ;a 
moillourc laclique a adopter Je 
d-spose de peu de temps puu' 
ramener Jobard a Paris, et il va 
faiioii me monirer convainquanl 
7 sandwichs et 12 Carlsberps 
plus lard. Jobard me recol enfin 
dans son bureau. II esl icune. 
grand, mmce. elegant, 'ace. 
beau, bronze, cullive, inleii.geni. 
avenant. co'dial, deconiracle, 
spcrtswear. Diau esl avec lui el 
cl'ii sp.'itu tuo. amen. Je note 
loutefois que le pli avant gauche 
de son pantalon est legorcmont 
troisse au niveau du genou. Je 
remercie le Ciel el je promets de 
bruler un cierge ;' ' 
Saint Julien Damoy. 



Jobard parle un Irancais impec- 
cable. Ca simpiilie tout de suite 
nos rapports. - Jaime beaucoup 
la France, dit-il. Savez-nous que 
c'est notre premier marche ex- 
portaieur dans le monde ? 
Je suis bien place pour le savoir 
car le Macilemosh a envahi nos 
journaux a grands matraquages 
de pubs agressives qui vous 
lessivent la cafeliere en deux 
coups les gros Heureusement a 
mon age le lavage de cerveau 
n'a pas le meme effet que sur 
les petits esprits Iragiles des 
cadres moyens en quete d'aven- 
lure intellecluelle, 
Je souris aimablement. je che- 
vrote un peu el je lui dis que 
oui, bien sur, c'esl normal que 
les ordinateurs Appoil se ven- 
dent bien de par chez nous, que 
oui bien sur. c'est parce qu'ils 
sont les plus perlormants et que 
c'est pas parce que I'age de la 
retraite m'a sonne plusieurs tois 
le :..;■;" que ie sjis incapabe 
de taire la diferencc ontre ie 
beau Appoil et lo laid IDMCRDE 
et patati et paiata Je me suis 
embarque dans une tirade au 
miei que je taime a:cgremer.t 
en prcnant som de bien pa3S6' 
la confiture la ou je sens que ca 
lui tail pais' Et croyez-moi. 
pour ce qui esl de la (latterie, 
Pepe Louis en connalt un bout. 
Aulant \c suis capable de raler 
comme une de'egal on de ccge- 
listcs quand on ma contrane. 
auiant je sais mo monirer obse- 
quieux a la hmite du servile 
quand ca s'avere necessa re 
Jobard m'ecoute avec un mterot 
amuse en carressant la souns 
de son Mac dun doigt idgor in- 
consciemmcnt gjide par S3 li- 
bido II attend pchmont la 1m de 
mon discours avani d enchainer. 
■ J'ai lu La Fontaine, monsieur 
Louis. Et je sais done que lout 
llatteur vil aux depens de celui 
qui la lui coupe. Que voulez- 
vous de moi ? 

Sleve-le-fule a vu clair dans 
mon jeu. II n'est plus temps de 
tergiverser. - Monsieur Jobard. 
je ne sais par quel infortune 
coup du sort le destin a mis 



enlre vos mains la vie de vingt 
charmantes jeunes lemmes... 
El j'embraye sur un resume ra- 
pide de la situation comme seul 
je suis capable den faire. Je lui 
dis lout sur les mauvaises inten- 
tions de I'Ombre Verte. sans 
toutelois parler de Jack Tramolo 
et de Clive Sansclerc. 
La reponse de Jobard ne se fait 
pas altendre. 

- C'esl siupide, ridicule et de- 
ment, monsieur Louis. II est riors 
de question de me livrer a une 
telle mascarade. Je n'irai pas a 
Paris pour eerie affaire et je me 
moque bien de savoir qui est 
cette Ombre Verte et quelles 
sonl ses inlentions. 
Changement d'attitude, change- 
menl de cap, changement de 
tactique. Les boules me montent 
el la colere secoue mes vieux 
os. Si Jobard le prend sur ce 
ton, ca va bouillir. Je me dresse, 
la canne en I'air, aussi fier que 
la Republique sur les barricades 
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Cdble liaison magneto cassettes 
Magneio cassettes Texas Instruments 
Magneto cassettes Lanscy I Compteur el cfltl 
Impilmonte Seikoscha GP 50 A 
Impilmonte SelKoscho GP 500 
Imprimanle Epson RXB0 tiiction/itoclion 
Machine o ecrlre Blather EP AA o memolre 
Interface pamllele extetieute pour Tl 99 
Interface setie enterieuie pour Brother pour Tl 99 
Enienaed Basic manuel anglais. 
i irciiiluii (lu^ic mnniiel Iranqais 
UtiMisimi rnomolre 32K extflileLiiB 
Monello Ce jeux Super Joy h vcnlouso avec 
interlace speciale supportanl 2 manelles 
Manelle Quick Shot II a ventouse Tir blOQue 
avec caapiaicui pour 2 monettes 



A VOS CONSOLES Tl 99/4 basic etendu disponible 



II. logo N° 2 disponible 

mini-memoire 
disponible avril. 



BASIC ETENDU 
MANUEL EN FRANpAIS 



7 introducrian nu Tl gg/2 

7 les techniques de programme dt 

7 la ponctualion en Irancais 

7UiviseuiPGCD/PPCM 



895 F I j 

B95 F 
75 FD 
75 FD 
75 FD 
l°2 75 FD 
75 FH 
75 FD 



K7 EPaROK/SOFTWARE 
BASIC ETENDU 



POUR II 99 



Lunar Lander 2 ; simulation de vats spallaui 95 F G 

Lunar Jumper i molo de I'espace 1 20 F □ 

Solat systeme : pilotage □ la cone en 3 dimensions 1 20 F I ] 
Sum Games (les Jeu» clym pi flues) 120 F D 

Pramatlcn < les 4 K7 Epsllan I'ensemble 380 F D 



K7 HEBD0G1CIELS SOFTWARE POUR Ti 99 
N° 3 rubls 5ocr6 Basic etendu 
W 4 6 jeux dont Dark Crystal Basic elendu 
H" 2 12 Jeux dont Roland Garros 
MODULES TEXAS ORGANISATION 



95 F D 

150 F a 



Gesllor 



MODULES EDUCATION 

Autlition^SuDstiaclion 

n D lDU2 147FD Adflilion Cannon 147 F U 

Mission mains 147 F D Divislcn/Demolllian 147 F □ 

Meteor-Mulllpltcatlon 147 F D Hulliplicallonl 147 F D 

Early roading/oxoiclce de lecture pout dSDutanl 



^n anglair 



147 F L 



Join via"eo2 147 F I 

llieallack 147F D 

Othello 206 F I ' 

206 F a 



N0UVEAUX 10GICIELS TEXAS 
Retour du pirate 250 F I .; Demonat 
Mosh 250 F I : Burger lin 

Microsurgeon 250 F [1 Hopper 

Hopper 



250 F I 
250 F : : 
250 F : 



250 FH Tteasute Island 250 FD 



LOT N° 2 EXTENSION COMPLETE 

Le module Basic filendu manuel en Irancais 

K7 Basic par sol-meme 

Extension mfimoire 32K en. 

K7 technique des programmes do Jeux n° 1 el 



LOT N D 3 ETUDES DU LOGO 

Le module Basic etendu manuel en Irancais 

Extension memolre 32K exi. 

Tl logo n° 2 

L'ensemole 2795 f D 



MODULES ATARISOFT POUR II 99 

MoonPaltot 219F11 Hiss packman 219 F '"' 

Delender 219 F T S Pool pasl Hon 

Jungle hunt 219 F Li (disp. hnmais) 219 F O 



MODULES FUNWARE POUR Tl 99-4 
Rabbit Rail ; le lupin molin 
Driving Demon jeu* de voiiures 
St nick ; le Pete Hofil arrive 



1 10,00 F ! : 
II 0,00 F I i 

il o.oo F : i 



; - Traverser In l!t;u7!:m!!::',ii' 

120 FD 

onsmerci dans les galer les 

iccelerctiort touUroyante a 
120 FD 

ac-Man dlabolique et en 
100 FD 

lOons un granu niiiilnir il.r 
100 F D 



PR0GRAMMAT10N SUR DISQUETTES 

Celtic! pfirlphfiriquo Texas : orlglne U.S.A. 

comprenani le boltlcr. le conlrbleut. 

el lunite do disquetle 5700 F □ 



LANGAGE PASCAL comprenani : 

La carle P. code et les disquetles Pascal : 

• USCD 

• Compile t 

• Asscmbleur linker 

• Edlteur filer 3500 F D 



Aide a la progrommntian n " 2 
Aide a la nrogrammatlan n' 3 
Olsqucties elecirlcllc 
Resistance dt 
Mothematltiue 



415F1.1 
206 F I . 

206 f: ! 

375 F 
375 F 
252 F I J 




NOUVEAUX CONTROtEURS DE DISQUETTES 
enfichables dons la bolls porlpheriquo comptable avec 
les anclennes unltfis de disquetles Toxas olnsl qu'avec 
la nouvelle unite double lace double denslte 
L'ensemBle 3800 F 



UNITE DEDI5QUETTEINTEGREE 




petiphetique Slim Line (1/2 hauteur) dou 


ile face double 


densite. capocitfi 360 K 






-.:■■ Ji'^utiio'.. Ceist- luii 


pcrmeldinler 




dans le companimenl d 




O^ripnfirique. 











